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SIMULAÇÕES 
ESPACIAIS 


Atingir as estrelas é um antigo sonho a 4: PAPER O: INK 9: Reno 
do homem. Com nossos programas, 70 LET a=INT (RND*45): LET b= | a 
meus a tatária ra INT (RND*5)+26: LET c=INT ( E 
que permitem simular a trajetória de RNDX8)+2: LET h=INT (RNDX8)+2 |) 
um corpo no espaço, você estará : LET St=INT (RND*100-c*8)+1: NE 
mais perto da realização desse sonho. LET d=0 ú 


90 LET d=d+] | 
100 CLS : GOSUB 300 | 
| Ê sa . a e 110 INPUT "ANGULO ?7",a2Z E 
No artigo sobre trajetórias (página 120 IE a2>89 OR aZ<l THEN Do 
766), vimos como a velocidade de um goto 110 Do 
projétil pode ser separada, para fins de 130 INPUT "VELOCIDADE ?",e 
análise, em uma componente vertical e 140 IF e=0 THEN GOTO 100 
outra horizontal. Vimos também como 160 LET an=a2*(P1/180): LET 
a distância do ponto pe ds qa ao pon- po a Rae de Dl ud 
to de chegada pode mudar conforme o AMRS 
ângulo de nei mento eavelocidade ini- 180 LET y=B+(x*TAN an-4ExRx/(e 
cial. Neste artigo, avançamos mais um 
pouco no estudo dos corpos em movi- 
mento. Analisamos objetos que se mo- 
vem em campos de baixa gravidade, si- 
mulando sua trajetória a partir de pe- 
quenas distâncias da superfície da Ter- 
ra e estudando corpos em órbita. 
Digite este primeiro programa. Ele é 
um bom exemplo de como utilizar seu 
conhecimento de trajetórias para mon- 
tar jogos que usam disparos ou outros 
lançamentos mais desafiadores. 








10;" ERROU !": GOTO 280 
275 PRINT INVERSE 1;AT 8,10;" 
BOM TIRO !";AT 10,5;"VOCE CONS 
|  EGUTU APOS “id 
| 280 PAUSE 100: PRINT BRIGHT 1 
, + PAPER 2; INK 6;AT 13,B;"OUTR 
hà VEZ?": PAUSE 200 
290 GOTO 70 
300 PRINT INK 5;AT 21,a;CHRS 
l44:AT 21,b;CHR5S 146 
310 FOR n=1 TO c: PRINT AT 21- 
n+1,12;: FOR m=1 TO c: PRINT 
| INK 6;CBR$S 147;: NEXT m: NEXT 
10 FOR n=0 TO 31: READ a: 


n 
POKE USAR “a"+n,a: NEXT n 320 RETURN 


500 DATA 3,6,60,40,104,60,126, 
255 
510 DATA 36,90,165,90,60,155, 








24,60 
g 520 DATA 24,36,66,153,153,66, 
g *e*CoS an*COS an)) 36,127 | 
E 185 IF ATTR (21-INT (y/8), INT 530 DATA 28,42,85,170,127,170, 
. (x2/8))=6 THEN GOTO 245 85,255 
E 190 IF y<=0 THEN GOTO 245 
E 200 IF (y>175 OR x2>255) AND d — 
E <10 THEN GOTO 90 no 
205 IF y>175 OR x2>255 THEN 
GoTo 270 10 PMODE 4:DIM G(1),E(1l),T(1),B 
210 PLOT INK 8;x2,y: SOUND (1) 
.01,7/10 20 FOR K=1536 TO 2528 STEP 32:R 
220 LET x=x+3 EAD A:POKE K,A:NEXT 
230 GOTO 170 30 GET (0,0)-(7,7),6,.G:GET(0,8) 
245 IE x2>=b*8+3 AND x2<=b*8+ -(7,15),E,G 
10 THEN PRINT AT 21,b;CHRS 40 GET (0,16)-(7,23),T.G:GET(O, 
145: FOR n=20 TO O STEP -1: 24)-(7,31),B,6 
SOUND .0l,n: NEXT n: GOTO 270 S0 DATA 3,6,60,40,104,60,126,25 
246 IF d<l0 THEN GoTo 90 5,36,90,165,90,60,155,24,60 





270 IF d=10 THEN PRINT AT 8, 60 .DATA 24,36,66,153,153,66,36, 




















tr | | is ] [o 
MU 


127,28,42,85,170,127,170,85,255 
70 A=RND(51)-1:B=RND(51)+197:C= 
RND (8) : H=RND (8) +1:8T=RND(100-c* 
8)+70:D=0:CLS 

BO D=D+1 

90 PCLS: SCREEN 1,1:GOSUB 320 
100 IF INKEY8="" THEN 100 

110 PRINT: INPUT ” ANGULO ";A2Z 
120 IF AZ>89 OR AZ<1 THEN 110 
130 INPUT " VELOCIDADE ";E 

140 IF E=0 THEN 130 

150 SCREEN 1,1 

160 AN=AZ*ATN(1)/45:X=0 

170 X2=X+A+8B 

180 Y=183-(X*TAN(AN)-4*X*X/ (EXE 
*COS (AN) *COS (AN) )) 

190 IF Y>190 THEN 250 

200 IF X2>=8T AND X2<5T+C*B+7 A 
ND 7>183-H*8 THEN 250 

210 IF Y>0 THEN PSET(X2,Y,5):80 
UND 200-Y,1 ELSE SOUND 255 AND 
(200=Y) P 1 

220 X=K+3 

230 IF X2<255 THEN 170 

240 GOTO 290 

250 IF Y>190 THEN Y=184 

260 PUT(X2-4,7)-(X2+3,7+7),E,PS 
ET: PLAY"TS001ADECBFGAEDEBGDE” 
270 PUT(A, 184)-(A+7,191),G,PSET 
: PUT (B,184)-(B+7,191),T,PSET 
280 IF X2>=B AND X2<B+7 THEN 30 
0 

290 IF D<10 THEN 80 

300 CLS:IF D=10 THEN PRINT €4l, 
* ERROU |" ELSE PRINT 641,"BOM 
TIRO !|*:PRINT 6164," VOCE CONSE 
GUIU APOS” ;D;"DISPAROS." 

310 FOR W=1 TO 3000:NEXT:PRINT: 
PRINT" OUTRA VEZ ...":FOR W=1 T 
O 1200:NEXT:GOTO 70 

320 FOR X=0 TO C:FOR Y=0 TO H:P 
UT(BT+X*B, 184-B*Y) -(ST+X*8+7,19 
1-B*Y) 1 B, PSET 

330 NEXT Y,X 

340 PUT(A,184)-(A+7,191),G,PSET 
: PUT (B,184)-(B+7,191),T, PBET:RE 
TURN 


1O W=RND(-TIME) 

70 A=INT(AND(1)*51):B=INT(RND(1 
1*51+198) :C=INT(RND(1)*8+1):H=1 
NT (RND(1)*9)+2:5T=INT(RND(1)*(1 
01-C*8))+70:D=0:CLS 

80 D=D+i 

90 SCREENZ:GOSUB 320 

100 IF INKEYS="" THEN 100 

110 SCREENO: PRINT: INPUT" Angulo 
“AZ 


120 IF AZ2>89 OR AZ<l THEN 110 
130 PRINT: INPUT"Velocidade ";E 
140 IF E=0 THEN 130 

150 SCREENZ:GOSUB 320 


160 AN=AZ*ATN(1)/45:X=0 

170 X2=K+A+B 

180 Y=183-(X*TAN (AN) -4*X*X/ (EXE 
*COS (AN) *COS (AN) )) 

190 IF Y>190 THEN 250 


200 IF X2>=ST AND X2<ST+C*B+7 A 


E ND Y>183-H*8 THEN 250 


, =. 
E | 
| 
| f 
| 4 Hera 


Erajetória do Mariner 


| Yenus 


210 IF Y>20 THEN PSET(X2,Y):AS=" 

Nº+STR3 (INT((190-Y)/2))+"L19":P 

LAY AS 

220 R=K+3 

230 IF X2<255 THEN 170 

240 GOTO 290 

250 IF Y>190 THEN Y=184 

260 LINE (X2,7)-(K2,7-B):PLAY * 

OlLAAA" 

280 IF X2>=B AND X2<B+7 THEN 30 

Ê 

290 FOR W=1 TO 1500:NEXT:IF Dcl 

O THEN 80 

300 SCREENO: IF D=10 THEN PRINT: 

PRINT"TUDO FOI EM VÃO!" ELSE PR 

INT: PRINT"BOM TIRO!":PRINT"Você 
acertou em";D;"diaparos!” 

310 FOR W=1 TO 3000:NEXT:PRINT: 

PRINT"Outra vez...":FOR W=1 TO 

1500:NEXT:GOTO 70 

320 FOR X=0 TO C:FOR Y=0 TO H:P 

SE7 (ST+X*8,184-Y*B) 

330 NEXT Y,X 

340 LINE (A,184)-(A+5,184):LINE 
(A+3,184)-(A+3,180):LINE (B,18 

4)- (B+5,184) :LINE (B+3,184)- (B+ 

3,180) :RETURN 


10 FOR I = 770 TO 795: READ A: 

POKE I,A: NEXT 

20 POKE 768,2 

70 A = INT ( RND (1) * 51):B = 
INT ( AND (1) * 51 + 198B):C = 


ANT ( AND (dl) * B) +I1:H = | 
NT ( RND (1) * 9) + 2:8T = INT 
t BND (1) * (101 - C* 8)) +7 
0:D = O: HOME : VTAB 21 
BO D=D+1 
90  HGR HCOLOR= 3: GOSUB 320 
100 GET AS 
410 INPUT "ANGULO? ";A2Z 
120 IF AZ > B9 OR AZ < 1 THEN 
110 
130 VTAB PEEK (37): HTAB 20: 
INPUT FVELOCIDADE? "E 
140 IF E = O THEN 130 
160 AN = AZ * ATN (1) / 45:X = 
Ú 


170 X2 =X+A+B 


180 Y = 157 - (X * TAN (AN) - 


4H RKRA/AEFE* COB (AN) 
* COS (AN))) 

190 IF Y > 160 THEN 250 

200 IF (XK2 > = ST) AND (X2 < 


8T + C* B+ 7) AND (7 > 157 - 


H * B) THEN 250 


210 IF Y > O THEN HPLOT X2,Y: 
PORE 768,2: POKE 769,200 - Y: 

CALL 770 

220 X =X + 3 

230 IF X2 < 259 THEN 170 

240 GOTO 290 

250 IF Y > 158 THEN Y = 158 

260 HPLOT X2,Y TO X2,Y - B: FO 

RX = 1 TO 12:W = PEEK ( - 163 
36): NEXT 

280 IF X2Z > = B ANDX2<B+ 
7? THEN 300 

290 FOR I = 1 TO 1000: NEXT: 
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IF D < 10 THEN 80 

300 FOR I = 1 TO 1500: NEXT 

HOME : TEXT : IF D = 10 THEN P 

RINT : PRINT "TUDO FOI INUTIL!" 
GOTO 310 

305 PRINT PRINT "BOM TIRO!”: 
PRINT "VOCE ACERTOU EM ";D;” D 

ISPAROS!” 

310 FOR I = 1 TO 4000: NEXT 


PRINT PRINT "OUTRA VEZ...": F 
OR I = 1 TO 4000: NEXT GOTO 7 
0 


320 FOR X = 0 TOC: FOR Y = O 

TO H: HPLOT ST + X * 8,158 - 1 

4 

330 NEXT NEXT 

340 HPLOT A,158 TO A + 5,158: 

HPLOT A + 3,158 TO A + 3,150: H 
PLOT B,158 TO B + 5,158: HPLOT 

B + 3,158 TO B + 3,150: RETURN 


5000 DATA 172,1,3,174,1,3,169 
,/4,32,168,252,173,48,192,232,20 
8,253,136,208,239,206,0,3,208,2 
31,96 


O programa solicita que você especi- 
fique a velocidade e-o ângulo de lança- 
mento para executar um disparo de um 
ponto próximo ao canto inferior esquer- 
do da tela até um alvo situado junto ao 
canto inferior direito. Dois fatores difi- 
cultam o jogo: a determinação aleatoó- 


ria da distância entre o ponto de lança-, 


mento e o alvo e a presença de uma bar- 


reira de tamanho variável entre os dois 
pontos. Qualquer trajetória que se es- 
colha deve ser alta o bastante para trans- 
por essa barreira. 


AVALIAÇÃO DA DISTÂNCIA 





Conhecemos só as posições do atira- 
dor, do obstáculo e do alvo. No entan- 
to, podemos estimar corretamente a ve- 
locidade e o ângulo necessários para 
produzir uma curva que leva o projétil 
acima do obstáculo até atingir o alvo. 
Com um pouco de prática, você verá 
que é possível obter grande proporção 
de acertos em uma série de tiros. 

Mas, em geral, as coisas não são tão 
fáceis. Muitas vezes temos apenas uma 
idéia aproximada da distância até o al- 
vo, é devemos calcular a velocidade e 
ângulo de tiro com este dado impreci- 
so. Analisando se o tiro caiu para cá ou 
para lá do alvo, avaliações mais preci- 
sas vão sendo feitas, até que se consiga 
sucesso. O programa seguinte mostra €s- 
se processo. Depois de gravar o progra- 
ma anterior, apague-o e digite estas 
linhas: 


-10 CLS 
20 INPUT "VELOCIDADE INICIAL 
(1-10000 m/9)”,BPp 
30 IF sp<l OR sp>10000 THEN 
GOTO 20 
40 INPUT AT 4,0;"ANGULO (1-90 
gqraus)”",a 
50 IF a<l OR a>=90 THEN GOTO 
40 
60 LET a=a*(PI/180) 
70 LET r=ap*ap*SIN (2*a)/10 
80 PRINT AT 10,3;"0 ALCANCE F 
OI DE ";INT (r+.5);" metros” 
90 PRINT AT 20,1;" QUALQUER TE 
CLA PARA RECOMECAR (O SAI)” 
100 PAUSE O: LET aS=INKEYS: IF 
aS="" THEN GOTO 100 
110 IF asS<>"0”" THEN GOTO 10 


10 CLS 

20 INPUT” VELOC. INICIAL (1-100 
00 M/58) “;SP 

30 IF SP<1l OR 8P>10000 THEN 10 

40 INPUT” ANGULO (1-90 GRAUS)”; 
ao 

S0 IF A<l OR A>90 THEN 40 

60 A=AXATN(1)/45 

70 AR=SP*SP*SIN(2*A)/10 

80 PRINT:PRINT” O ALCANCE FOI D 
E”; INT(R+.5); "METROS" 

90 PRINT:PRINT”" QUALQUER TECLA 

PARA RECOMECAR "'0'* SAI” 

100 AS=INKEYS:IF A$S="" THEN 100 


IT 


110 IF A$="0" THEN CLS: END ELSE 
10 





10 CLS 

20 INPUT"VELOCIDADE DE LANÇAMEN 

TO (1-10000 M/8)":SP 

30 IF SP<l OR SP>10000 THEN 10 

40 INPUT" ANGULO DE LANÇAMENTO ( 

1-90 GRAUS)" ;A 

50 IF A<l OR A>8B9 THEN 40 

60 A=A*ATN(1)/45 

70 AR=SP*SPASIN(Z*A)/10 

BO PRINT:PRINT"A DISTÂNCIA ALCA 

NÇADA E"; INT(R+.5) ; "METROS" 

90 PRINT: PRINT"PRESSIONE <0> PA 

RA TERMINAR OU QUALQUER OUT 

RA TECLA PARA CONTINUAR” ; 

100 AS=INKEYS:IF AS="" THEN 100 
110 IF A$="0" THEN CLS: END ELSE 
LO 


10 HOME 

20 INPUT "VELOCIDADE DE LANCAM 

ENTO (1-1000 M/58)? ";5P 

30 IF SP < 1 OR SP > 10000 THE 

N 10 

dO INPUT "ANGULO DE LANCAMENTO 
(1-90 GRAUS)" ;A 

50 IF A< 1 ORA > 89 THENA4O 


60 A = A * ATN (1) / 45 

70 R = SP * SP * SIN (2 * A) / 
10 

B0o PRINT PRINT "A DISTANCIA 


ALCANCADA E DE "; INT (BR + .5); 
" METROS” 

90 PRINT : PRINT "TECLE <0> PA 
RA TERMINAR OU QUALQUER 

OUTRA TECLA PARA CONTINUAR” ; 
100 GET AS 

110 IF AS = "0” THEN HOME : E 
ND 

120 GcoTO 10 


O programa pede valores para a ve- 
locidade inicial (linha 20) e para o àn- 
gulo de lançamento (linha 40). A linha 
70 calcula e mostra a distância a que es- 
ses dois valores levariam o projétil. A 
variável R corresponde à distância; SP 
refere-se à velocidade e A, ao ângulo. 
O valor aproximado para a aceleração 
da gravidade próximo à superfície da 
Terra é igual a 10. 

Ignora-se o efeito da resistência do ar 
mas, em experimentos reais, ele deveria 
ser considerado. A maior velocidade de 
lançamento permitida é 10000 m/s. A 
velocidade de 2000 m/s foi usada em 
lançamentos de objetos a grandes alti- 
tudes, para pesquisar o espaço. Os ob- 
jetos atingem 180 km de altitude quan- 
do lançados a um ângulo de 90º. Mas, 
sem contar a resistência do ar, chegam 
a 250 km. 






CIRCUNDANDO A TERRA 





Se um objeto é lançado em um àân- 
gulo que o leva muito longe da superfi- 
cie da Terra, o efeito da fricção do ar 
diminui. Porém, quando se pretende 
que ele atinja uma grande distância do 
ponto de lançamento, é preciso levar em 
conta a curvatura da Terra. 

Um dos primeiros a considerar esta 
questão foi o cientista inglês Isaac New- 
ton. Ele imaginou um poderoso canhão 
que lançasse seus projéteis do alto de 
uma montanha suficientemente grande 
para que seu pico ficasse fora da atmos- 
fera terrestre. Tiros dados a velocidades 
crescentes levariam a distâncias também 
crescentes se a Terra fosse plana. Mas, 
como ela é curva, a superfície se afasta 
do ponto de lançamento, fazendo com 
que o projétil percorra distâncias ainda 
maiores. 

Eventualmente, argumentava New- 
ton, um lançamento poderia ter uma ve- 
locidade inicial tão alta que o projétil 
nunca atingiria o solo, mas poderia, em 
termos teóricos, atingir o pesquisador 
bem na nuca. À medida que o projétil 
caisse em direção ao solo, este “cairia” 
sob ele (visto que a Terra é redonda). 
Dessa maneira, o projétil ficaria para 
sempre em queda livre — ou seja, esta- 
ria em órbita. 

Uma vez que um objeto escapa da 
gravidade de um planeta, sua velocida- 
de e distância determinam um tipo de 
órbita — circular ou elíptica. 

Para que se possa prever a trajetória 
e fazer medições relacionadas a um pla- 
neta ou satélite, sua órbita precisa ser 
conhecida, ou seja, devemos saber a for- 
ma exata da elipse. O grau de “achata- 
mento” da elipse é sua excentricidade 
(E), que corresponde à proporção entre 
seu comprimento e sua largura. Quan- 
do E é igual a 1, temos uma elipse tão 
larga quanto comprida, ou seja, um 
circulo. 

Digite e execute este programa para 
ver o efeito da variação de E entre va- 
lores menores e maicres que 1: 


10 CLS 

30 INPUT "EXCENTRICIDADE (.1 
al.9)",e 

40 IF e<.l OR e>1.9 THEN 

GOTO 30 

50 PLOT 127,87+e*40 

60 FOR a=0 TO 2Z*PI+.2 STEP .l 
70 DAAW 127+(40*S5IN a)-PEEK 
23677,87+(e*40*C0S a)-PEEK 
23678 


| BO NEXT a 


90 PRINT AT 20,1;" QUALQUER TE 
CLA PARA RECOMECAR (0 SAT)” 
100 PAUSE O: LET aS=INKEYS: 

IF a$=-"" THEN GOTO 100 

110 IF a$<>"0" THEN GOTO 10 


10 PMODE 4,1:PCLS 

JO CLS: INPUT"EXCENTRICIDADE (.l 
A 1.9) “JE 

40 IF E<.l OR E>1.9 THEN 30 

50 SCREEN 1,1 

70 CIRCLE(128,96),48,5,E 

100 AS=INKEYS:IF AS="" THEN 100 
110 IF AS="0" THEN CLS: END ELSE 
30 


DM 


30 CLS: INPUT" EXCENTRICIDADE (0. 


LI A I1.9)";E 

dO IF E<.l OR E21.9 THEN 10 

50 SCREEN 2:COLOR 15,4,4 

70 CIRCLE(128,96),48,15,,,E 

100 AS=TNKEYS:IF AS="" THEN 100 
110 IF AS="0" THEN CLS: END ELSE 
30 


Dio 


10 TEXT 

30 HOME INPUT "EXCENTRICIDAD 

E (0.1 4 1.9) “PRE 

40 IFE<.I OR ES l.9 THENGOSI 

O 

50  HGR2 HCOLOR= 3 

60 X = 130:7 = 90 

70 FORA =0OTOZ*43.,.1416 STE 

P .05 

BO HPLOT X + 45 * 
(E * 45 * Cos (A)) 

90 NEXT 

100 GET AS 

110 IF AS = "0" THEN TEXT : H 

OME : END 

120 GOTO 10 


O programa gira entre as linhas 30 e 
110 para desenhar elipses. A linha 30 de- 
termina o valor de E de acordo com sua 
escolha. O TRS-Color e o MSX usam 
o comando CIRCLE (linha 70) para de- 
senhar as curvas. Os outros micros em- 
pregam um laço FOR,..NEXT para de- 
senhar cada ponto, 

Digite valores de E na faixa indicada 
na tela. É igual a 1 corresponderá a um 
círculo; E menor que 1, a uma elipse 
achatada em cima e embaixo, e E maior 
que 1, a uma elipse achatada lateralmen- 
te. Assim, toda órbita pode ser conside- 
rada uma elipse, com um valor particu- 
lar de E. 

Uma vez em órbita, um satélite ou 
uma espaçonave não precisam de pro- 
pulsão, pois estarão caindo livremente. 
O uso de foguetes irá movê-los para uma 


SIN (A),Y - 


ER , | 
| 
| 

| | | 


órbita diferente. Quanto menor for o 
raio da órbita, maior será a velocidade 
com que o objeto deve se mover. Digite 
o próximo programa para ver como is- 
so funciona: 











MLUUITII SS! 


e RND*60): IF ABS (r-rt)<10 BO LET az=a+s 
THEN GOTO 40 100 LET at=at+. 1*SQR ((40/rt)” 
50 CIRCLE 127,87,4 3) 
10 CLS : LET qc=0 60 LET 9s=.1: LET a=0: LET at= 110 IF INKEY$S="7" AND r<B5 
40 LET r=40: LET rt=10+INT ( INT (RND*10)+1: LET f=0 THEN LET f=f+l: LET r=r+2: 














LET s=B*SQR (((r+2)/r)"3): 

Goto 130 

115 IF INKEY$="6" AND r>B THEN 
LET f=E+l: LET r=r-2: LET s=5 
*S0R (((r+2)/r)"3): GOTO 130 
120 FOR p=1 TO 5: NEXT p 

130 LET x=r*SIN a: LET y=r*COS 
à 

140 LET xt=rt*SIN at: 
t*Ccos at 

150 PLOT 127+x,8/7/+y 
160 SOUND .02,r/2 
165 IF gce<>0 THEN PLOT OVER 
1;127+0x,87+oy 

170 PLOT OVER 1;127+xt,B/+yt;: 
LET ox=xt: LET ov=vyt: LET qc=] 
180 IF ABS (x-xt)>4 OR ABS (y- 
vt)>4 THEN GOTO BO 

190 PRINT AT 20,12;f;” PONTOS” 
200 GOTO 200 


LET yt=r 





10 PMODE 4:PCLS:SCREEN 1,1 

40 R=30:RT=10+RND(70):IF ABS(R- 
RT)<20 THEN 40 

50 DRAW"BM128, 9658NUNRNDL ” 

60 S=.1:A=0:AT=RND(10):F=0 

BO A=A+S 

95 LT=AT 

100 AT=AT+. 1*SQR((40/RT)"3) 

110 IF PEEK(341)=247 AND R<95 T 
HEN F=F+1:R=R+1:5=S*SQR(((R-1)/ 
R)*3) ELSE IF PEEK(342)=247 AND 
R>8 THEN F=F+L:R=R-1:5=S*SQR((( 
R+1)/R)“3) ELSE FOR K=1 TO 25:NE 
XT 

130 X=R*SIN(A) :Y=R*COS(A) 

140 XT=-RT*SIN(AT) :YT=RT*COS (AT) 
150 PSET(128+X,96-Y,5) 

160 SOUND R*2,1 

170 PSET(128+XT,96-YT,5) 
175 PSET(128+RT*SIN(LT),96-RT*C 
OS (LT),0) 

180 IF ABS(X-XT)>=4 OR ABS(Y-YT 
)>=4 THEN 80 

190 CLS: PRINT" VOCE USOU" ;F;"TO 
QUES” 


na 


5 W=AND(-TIME) 

10 SCREEN? 

40 R=30:RT=INT(RND(1)*70)+11:IF 
ABS (R-ART)<20 THEN 40 

50 CIRCLE (128,96),2 

60 S=.1:A=0:AT=INT(RND(1)*11)+1 
:F=0 

80 A=A+S5 

95 LT=AT 

100 AT=AT+.1*5QR((40/BRT)"3) 

105 FOR I=1 TO 5:AS=INKEYS:IF A 
8<>"" THEN 1=5 

234 NEXT 

110 IF AS=CHAS (30) AND R<95 THE 

N F=F+1:R=B+1:5=S*SQR(((R-1)/BR) 
-3) 

120 IF AS=CHARS5 (31) AND R>8 THEN 
F=F+1:R=A-1:5=S*50QR(((R+1)/BR)” 
3) 


| 
' | | | 
CU 66 PROGRAMAÇÃOBASIC 66 

























Órbita de quatro planetas internos. 


130 
140 
150 


XK=R*SIN(A) :Y=R*COS(A) 
XT=ART*SIN(AT) :YT=RT*COS (AT) 
PSET (128+X,96-Y) 

170 PSET (128+XT,96-YT) 

175 PSET (128+AT*SIN(LT),96-RT* 
COS(LT)),0 

180 IF ABS(X-XT)>=4 OR ABS(Y-YT 
)>2=4 THEN BO 

190 SCREENO: PRINT"VOCE USOU" EF; 
"TOQUES" 


[eb )Lco] 


10 HGR2 

40 R = 30:AT = INT ( BND (1) * 
70) + 11: IF ABS (AR - RT) <Z 

O THEN 40 


50 HPLOT 126,96 TO 130,96: HPL 
OT 128,94 TO 128,98 
60 S = .1:A = 0:AS = 
(1) * 13):F =. 0 

BO A = A+S 
95 LT = AS 
100 AS = AS + 
RT) * 3) 
105  POKE 
110 IF 


INT ( RND 


.)1 * SQR ((40 / 
- 16368,0 


PEEK ( - 16384) = 181 


AND R < 95 THEN F = F + 1:;R=R 
+ 1:S = S8* SOR (((R-1)/R 
ES a) 

120 IF PEEK ( - 16384) = 182 

AND R > 8 THEN F = F+1:R=R 

- 1:S =S* SOR (((R+1)/R) 
E: 

125 POKE - 16368,0 

130 X=R* SIN(AJ:IV=R* C 

OS (A) 





140 XT = RT * 
* COS (AS) 

150 HPLOT 128 + X,96 - Y 

170 HPLOT 128 + XT,96 - TT 

175 HCOLOR= 0: HPLOT 128 + RT 

* SIN (LT),96 - RT * COS (LT) 

: HCOLOR= 3 

180 IF ABS (X - XT) > = 4 OR 
ABS (7 = YT) > = 4 THEN 80 

190 TEXT : HOME PRINT "VOCÊ 

USOU ";F;” TOQUES” 


SIN (AS):YT = RT 


MANOBRAS NO ESPAÇO 





Executando o programa, verá 
um satélite-alvo e a trajetória de UM 
nave em órbita. Tente igualar as duas 
jtas usando as setas para cima e pa- 
ra baixo (elas correspondem às teclas 6 
e 7 no Spectrum e no Apple). 

A linha 40, determina o raio R da ór- 
bita da nave Cómo 200; o raio do alvo 
é definido ao acase, A linha 60 especi- 
fica as variáveis para AMposições iniciai 
O ponto essencial do prôprama estáia 
linha 100, que usa uma importante lei 
da física: o quadrado do tempe, para 
percorrer uma órbita he aa divitlido 
pelo cubo do raio é uma'constante, PO 
essa razão, o SQR alias 3 estão 
na linha 100. | 

Faça as manobras utilizando as teclas 
citadas para aumentar ou diminuir a ór- 
bita. Lembre-se de que quanto menor a 
órbita, maior a rapidez. 































MOVIMENTO PLANETÁRIO 





Na realidade, manobrar de uma ór- 
bita para outra é muito mais complica- 
do do que sugere o programa anterior, 
A dificuldade não se encontra na mu- 
dança de uma órbita para outra, mas na 
localização de um alvo na vastidão do 
espaço. E, para complicar um pouco | 
mais, é preciso levar em consideração 
que a gravidade do Sol, da Lua e, tam- 
bém, dos planetas tem efeito sobre o 
movimento de uma espaçonave. 

Na prática, poderosos computadores 
são as ferramentas dos navegantes do es- 
paço. Eles controlam a velocidade, o 
tempo e a direção dos foguetes, garan- 
tindo que estes se mantenham na traje- 
tória desejada. 

Uma vez na órbita correta, a nave cai 
livremente no campo gravitacional do 
sistema solar. Ela precisa apenas de pe- 
quenas correções de curso no decorrer 
de meses e até anos de viagem — é qua- 
se tão previsível quanto os planetas que 
circundam o Sol. 

O programa seguinte permitirá a ob- 
servação do movimento dos planetas. 
























— adia pa e od 
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10 BORDER 4: CLS : LET qc=0 
20 DIM d(9): DIM p(9): DIM 1( 
9): DIM a(9): DIM b(9): DIM x 
(9): DIM v(9) 

30 FOR t=1 TO 9: READ di(t),p( 
Et): NEXT £ 

40 INPUT "Quantos planetas (1 
-0) 7”",8 Tt 

50 IF s<l OR B>9 THEN GOTO 
40 | 

60 LET sc=d(s)/325;: LET t=p(s 
1/75 

70 PRINT "Ha um espaco de *"; 
INT E dias”'"entre cada Pon 
to.”": PRINT 41;” <BPACE | 


CONTINUAR” 
- 2 32 THEN 


LO PRINT PRE... 3JONE <SPACE 
"PARA RECOMECAR” 
110 LET url: LET mB: 
(180 | 
120 FOR q=1 TO 8 
130 LET r=d(q)/ec: 
LET b LET e=0: 
140 IF q=1 THEN LE 
b=a*.98 

150 IF q=B THEN LE 
LET b=a*.96 | 
160 LET i(q)=id« 
180 LET Y=q 









PPLOT 

7+y (q) 
"»127+a(q)/4, 
j=a(q)/d: 





oT TO) 
LET y (q) =b(q)/4 | 
240 LET a(lq)=x: LE 
NEXT q 
250 LET m=m+t 








J=y: 


260 IF INKEYS=CHAS 32 THEN 

RUN 

270 LET qc=1: GOTO 120 

280 DATA 58,88,108,225,150,365 
,/228,687 

290 DATA 778,4333,1427,10759, 
2870, 30685 


300 DATA 4497,60190,5969,90741 


10 PMODE 4:PC 
20 DIM D(B),P 
30 FOR T=0 TO 
NEXT | 
40 CLS: INPU 
(1.9) ";B 

50 IF S<1/OR 8>9 THEN 40 

) 8=8-JY:SC=D(8)/90:T=P(8)/75 

70 PRINT: PRINT” HA UM ESPACO DE 

*;INT(T);"DIAS”: PRINT” ENTRE CA 

DA PONTO”: PRINT: PRINT:PRINT “PR 

ESSIONEXESPACO>PARA CONTINUAR” 

75 IF INKEY$S<>" " THEN 75 

80 SCREEN 1,1 

90 CIRCLE(128,96),1,5 

110 G=ATN(1)/45 


3), 1 (8) ,A(8),B(8) 
8:READ D(T) ,P(T): 


" QUANTOS PLANETAS 






120 
130 
)/T 
140 
150 
155 
160 


FOR Q=0 TO 5 
R=D(Q)/SC:A=BR:B=R:E=0:P=P(Q 


IF Q=0 THEN E=.2:B=A*.98 
IF Q=8 THEN E=.26:B=A*.96 
IF 8>5 AND Q<6 THEN 245 

IF P>3 THEN P=INT(P+.5) 

170 I(0)=1(0)+360/P 

180 Y=G*I(Q) :X=INT(A*(COS(Y)-E) 
) : Y=INT(BASIN(Y)) 






200 CIRCLE(IZB+A(Q),96-B(Q)),1, 
0 

220 PSET (128+A(Q),96-B(Q),5) 
230 CIRCLE(128+X,96-Y),1 

240 A(Q)=X:B(Q)=T 

245 NEXT 

250 M=M+T 


INKEY$=" * THEN RUN 
To 120 
A 58,88,108,225,150,365, 













20 DIM DB), P(B),1(8B),A(B),B(B) 
30 FOR T=Da]o B:READ D(T), PCT): 
NEXT 

40 INPUT"QUANTOS, PLANETAS (1-9) 
"9 






50 IF Sc<l OR S>9 THEN, 40 
60 9=8-1:S8C=D(8)/90:T= 
7O PRINT:PRINT"na un al O DE” 
“INT(T);"DIAS ENTRE CADA PONTO” 
': PRINT: PRINT: PRINT"TECLE A BARE 
A DE ESPAÇOS PARA CONTINUAR” 
75 IF INKEYS<>”" " THEN 75 
BO SCREEN 2 
90 CIRCLE (128,96),1,15 
100 G=ATN.(1)/45 

20 FOR Q=0 TO 5 
a=D (0) /SC:A=R:B=R:E=0:P=P(Q 










41/75 


37 T 







140 IF Q=0 BhhE= .2:B=A*.98 
150 IF Q=B THEN "B6:B=A*.96 
160 IF P>3 THEN P=INT 

170 I(Q)=1(0)+360/P 

180 Y=GX*I (Q) :X=INT(A*(COS(T)-E) 


)J:Y=INT(BASIN(Y)) 


200 CIRCLE(IZB+A(Q),96-B(Q)),1, 
15 

220 PSET(IZB+A(Q),96-B(Q)),5 
230 CIRCLE(128+X,96-Y),1,6 

240 A(Q)=X:B(Q)=Y 

245 NEXT 

250 M=M+T 

260 IF INKEY59=" " THEN RUN 

270 GOTO 120 

280 DATA 58,88,108,225,150,365, 
228,687 


290 DATA 778,4333,1427,10759,28 


70,30685 
300 DATA 4497,60190,5969,90/41 


rato 


JO TEXT 








20 DIM D(8),P(8B),I(B),A(B),B(8 


) 
30 FORT = O TOB: READ D(T),P 


(T): NEXT 
40 HOME INPUT "QUANTOS PLANE 
TAS (1-9) ";8 


50 IFS<10RS>9THENÃAO 

60 8 = 5 - 1:8C = D(8) / 90:T = 

P(S) / 75 

70 PRINT : PRINT "HA UM ATRASO 
"; INT (T);”" DIAS ENTRE CAD 

à PONTO”: PRINT : PRINT "TECLE 

A BARRA DE ESPACOS PARA CONTINU 

AR” 


75 GET AS: IF AS < > cCHR$ (3 
2) THEN 75 
Bo HGR2 : HCOLOR= 3 


90 HPLOT 128,96 

110 G = ATN (1) / 45 

120 FOR Q =0 TOS 

130 BR = D(Q) / SC:;A = R:B = R:E 
= 0:P=P(Q) / T 


140 IF Q = O THEN E =.Z:B= A 
* .98 

150 IF Q = B THEN E = .26:B = 

A * .96 

155 IF S > 5 ANDOQ < 6 THEN 24 
5 

160 IF P > 3 THEN P = INT (P 
+ .5) 


170 I(Q) = I(0) + 360 / P 


180 Y = G * I(Q):X = INT (A * 
( COS (7) - E))J:Y = INT (B* 
SIN (Y)) 


200 HCOLOR= O: HPLOT 129 + A(O 
1,96 - B(Q) TO 128 + A(Q),95 - 
B(Q) TO 127 + A(Q),96 - B(Q) TO 
128 + A(Q),97 - B(Q) 

210 HCOLOR= 3: HPLOT 128 + A(Q 
|, 96 a B(Q) 

RO HPLOT 129 + X,96 - Y TO 12 





























n 95 - Y TO 127 + X,96 - Y 

TO 12M+ X,97 - Y 

240 A(QMme X:B(Q) = Y 

245 NEXT* 

250 M=M+ 

260 POKE - 18668,0 

265 IF PEEK ( W6384) > 128 

THEN RUN 

270 GOTO 120 | 

280 DATA 55,88,108,2250]50,36 
28,687 


290 4333,1427,10 
2870,306€ 


300 DATA 
1 


778, ço, 


4d 1190,5969,9074 


Ao executar O programa, você deve 
escolher o número de planetas que de- 
seja ver. Quanto maior o número deles, 
mais complicada a figura. Para identi- 
ficar os planetas, lembre-se de que Mer- 
cúrio está mais perto do Sol, seguido por 
Vênus, Terra, Marte, Júpiter, Saturno, 
Urano, Netuno e Plutão. 

Execute o programa com diferentes 
valores. Note que as órbitas de dois pla- 
netas — Mercúrio e Plutão — são elíp- 
ticas. Na verdade, as outras também o 
são, mas têm uma excentricidade tão pe- 
quena que parecem circulares. 











AVALANCHE: 


Um jogo de ação não seria completo 
sem uma abertura musical. Nosso video- 
game toca a melocia Greensleeves, no 
tom e ritmo corretos. Talvez você criti- 
que nossa escolha, por julgá-la pouco 
adequada a um videogame. Contudo, de 
acordo com a lenda, Henrique VIII es- 
creveu essa melodia para sua esposa Ana 
Bolena. Mais tarde, ela teve um fim bas- 
tante trágico, assim como será o de Wil- 
lie, se cometer qualquer descuido no jo- 
go. Além disso, não teremos que pagar 
direitos autorais — o que é muito im- 
portante... 


A rotina Assembly listada a seguir 
utiliza a sub-rotina da ROM que contro- 
la o comando SOUND, o que facilita a 
execução das notas musicais. 


10 REM oro 60000 
20 REM ld 1x,57359 
30 REM mask ld b,19 
40 REM tune push bc 
50 REM ld d, (ix+1) 
60 REM ld e, (1x+0) 
70 REM ld h, (1x+3) 
BO REM ld 1, (1x+2) 
90 REM push ix 
100 REM call 949 
110 REM pop ix 
120 REM ld de,4 
130 REM add ix,de 
140 REM pop bc 
150 REM djnz tune 
160 REM ret 


Podemos escolher qualquer melodia, 
contanto que forneçamos a essa rotina 
as informações necessárias sobre o que 
vai tocar. O programa BASIC que apre- 
sentamos a seguir coloca na memória os 
dados que o computador precisa para 
executar Greensleeves. As notas, com 
suas respectivas durações, formarão 
uma espécie de tabela, colocada logo 
abaixo da tabela ASCII que contém os 
textos do título e das instruções. 


5 CLEAR 57358 
10 FOR n=57359 TO 57434 STEP 
2: READ a: POKE n+1l, INT (a/ 
256): POKE n,a- (256*INT (a/ 
256)): NEXT n 
“20 DATA 98,1460,233,1223,131, 
| 1086,220,964,78,908,147,964, 


EFEITOS SONOROS 





261,1086,110,1297,131,1642,49 
, 1460,110,1297,233,1223,98, 
1460,147,1460,44,1642,98,1460 
,220,1297,92,1548,220,1959 





COMO FUNCIONA 


A rotina começa colocando o ende- 
reço 57359 no registro IX. Como regis- 
tro-índice, IX vai servir de apontador e 
seu valor inicial corresponde ao início 
da tabela de notas. 





Em seguida, 19 é colocado em B, re- 
gistro que servirá como contador. Seu 
conteúdo inicial corresponde ao núme- 
ro de notas que serão executadas (o tre- 
cho de Greensleeves que vamos tocar 
tem dezenove notas). Esse valor é guar- 
dado temporariamente na pilha, pelo 
comando push bc. O registro C precisa 
ser guardado junto com o B porque não 
existe um comando que guarde registros 
de oito bits na pilha. As instruções push 
e pop só aceitam pares de registros co- 
mo operandos. 

Mas por que guardar o valor de B e 
C na pilha, se nenhum dos dois regis- 





Vamos ouvir um som antes de colocar 
nosso personagem em cena. Que tal um 
grande sucesso de 1560? Sente-se diante 
de seu micro e prepare uma abertura 
musical digna de Avalanche. 








tros será usado até que a instrução pop 
be recupere seu conteúdo original? Es- 
ta é uma boa pergunta. Enquanto o va- 
lor de BC está na pilha, o programa cha- 
ma uma sub-rotina da ROM, que pode 
muito bem usar o registro B. Embora 
uma sub-rotina possa alterar o valor de 
qualquer registro, ela sempre deixa a pi- 
lha intacta. Assim, sempre que chama- 
mos uma sub-rotina que não conhece- 
mos bem, devemos guardar o conteúdo 
dos registros importantes na pilha. 

O primeiro número da tabela é colo- 
cado em DE; o segundo, em HL. A ope- 
ração, diferentemente do usual, empre- 
ga comandos com endereçamento inde- 
xado, de modo que IX é usado como 
apontador. Os registros têm que ser car- 
regados um de cada vez, já que não há 
comandos que carreguem pares de regis- 
tros nesse tipo de endereçamento. Se 
consultarmos a listagem do programa 
BASIC, veremos que cada número ocu- 
pa dois bytes, ainda que muitos sejam 
menores que 256. 

Os números formam pares. O primei- 
ro valor determina a duração da nota — 
na realidade, ele especifica o número de 
ciclos gerados pela rotina do comando 
SOUND. O número corresponde, en- 
tão, à fregiiência da nota multiplicada 
pela sua duração em segundos. O segun- 
do número determina a tonalidade da 
nota. Para calcular seu valor, podemos 
usar a fórmula 437500/f-30125, onde f 
é a fregiência da nota. 

A rotina coloca o conteúdo de IX na 
pilha, para preservar o valor do apon- 
tador, e, em seguida, chama a sub-ro- 
tina da ROM. A sub-rotina do coman- 
do SOUND é chamada pela instrução 
call 949. Ela usa os valores de HL e DE 
para produzir o som. À instrução pop 
ix recupera da pilha a posição do apon- 
tador na tabela de notas; o ponteiro 
avança um par de notas, com a coloca- 
ção de 4 em DE (ld de, 4) e a soma des- 
se valor a IX (add ix,de). O emprego de 
add é necessário, já que não existe uma 
instrução especial para somar valores ao 
índice IX. Poderíamos usar quatro ins- 
truções inc ix, mas O processo seria mais 
demorado. 

O valor original do contador volta 
para BC. A instrução djnz subtrai uma 
unidade de B e, se este não foi ainda re- 


| | | | | 
| 
| 


A ESCOLHA DA MÚSICA ARMAZENAGEM DA MÚSICA 
CONTAGEM DAS NOTAS E | COMO MODIFICAR 

E CÁLCULO DAS FREQUÊNCIAS | A MELODIA 
E ROTINA PRINCIPAL COMO SINCRONIZAR O SOM 
E SUB-ROTINAS E À AÇÃO DO JOGO 


GR 
MY 


il 
Ee = 
ess 


EENSLEEVES 
S-MY-DELIGHT 


= 











duzido a zero, ela faz o processador vol- 30 STX MUPOINT 460 FCB 131,0,212,49 ! 
tar para emitir mais uma nota. Após de- é a rá 470 FCB 0,189,110,0 | 
zenove n o processad ixaola- >0 PSR | 480 FCB 168,233,0,158 

pe Prim 60 LDA $FFO1 490 FCB 98,0,189,147 


ço e encontra ret. 70 ANDA 4247 500 FCB 0,189,44,0 


Para testar a sub-rotina, utilize 
Sub: ” 80 STA SFFOI 510 FCB 212,98,0,189 
RAND USR 60000, mas não seesqueça qo LDA $FFO3 520 FCB 220,0,168,92 








de que a tabela de notas deve estar re- 100 ANDA 4247 530 FCB 0,200,220,0,252 
gistrada na memória. 110 STA SFFO3 
LDA 8FF23 O programa tem duas entradas: uma 
ema 18 é e em 30000 e a em 30008 Agi 
presen > - SFF 50). Se a rotina for chamada pelo pri- 
TOQUE SUA PRÓPRIA MELODIA 50 MAIN LDU MUPOINT meiro endereço, executará a melodia in- 
170 ins Haga teira; se for chamada pelo segundo, exe- 
Mesmo depois de toda aquela conver- +90 cMpU 4MUSI C+57 cutará apenas uma nota. Esta última op- 
sa sobre Henrique VIII, talvez você 190 BLO MONE ção permite que se toque a melodia sem 
queira ouvir outra música. Embora não 299 LDU qMUSIC interromper a ação do jogo. Podemos 
seja aconselhável fazer a substituição 210 MONE STU MUPOINT tocar uma nota, fazer alguma outra coi- 
dentro do nosso jogo, você pode usar a 220 PSHS X sa na tela, tocar outra nota, e assim por 
rotina separadamente. 230 LDB 4252 diante. 
Escolha a música de sua preferência 240 MTWO STB SFF20 
e traduza-a nos parâmetros que a roti- 250 MTHR LEAX -1,X | 
na utiliza para emitir notas musicais. 260 BNE MTHR ARMAZENE À MELODIA 
Lembre-se, contudo, de que melodias 270 LDX .8 | | 
diferentes requerem um outro valor pa- sa cpa, foto -1.% O valor do rótulo MUSIC é coloca- 
ra o contador B, que determina o nú- 300 BNE MFOU À do no byte rotulado MUPOINT. Em- 
mero de notas executadas. 310 LDX SO bora na listagem — e, posteriormente, 
320 DECA na memória — o valor de MUSIC já es- 
330 BNE MTWO teja nesse byte, usa-se MUPOINT para 
340 LEAS 2,8 guardar a posição da última nota exe- 
350 DEC .,3 cutada, o que é útil quando tocamos a 
O TRS-Color executa a melodia 360 BNE MAIN melodia uma nota de cada vez. 
Greensleeves por intermédio da rotina 370 ANDCC 45AF O comando LDA 19 coloca no 
Assembly, que é dada a seguir. Não se dd MUBOINT FDB S758A acumulador o número de notas do tre- 
esqueça de aumentar a memória dispo- js 0 TE F o o 189.233 
nível com POKE 25,6:POKE 26,1:NEW 40 FcB 0,158,1 o 
e também de proteger uma área para O 420 FCB 141,220,0,125 


programa em código. 
10 ORG 30000 
20 LDX (MUSIC 


430 





FCB 78,0,118,147 
FCB 0,125,255,0 


FCB 141,110,0,168 











cho de Greensleeves que vamos execu- 
tar — dezenove. Se você não quiser to- 
car a melodia inteira de uma vez, colo- 
que no acumulador o número de notas 
que pretende ouvir. Assim, optando pe- 
la execução da música nota por nota, 
você deverá colocar 1 em A. 

O conteúdo de A é levado para a pi- 
lha da máquina por PSHS A. Trata-se, 
porém, apenas de uma armazenagem 
temporária. Mais tarde, o programa 
precisará do número de notas, 

As nove instruções que se seguem via- 
bilizam a produção de sons, colocando 
os valores apropriados no chip de som 
do TRS-Color. 





A ROTINA PRINCIPAL 


MUPOINT aponta para a próxima 
nota a ser executada, de modo que o en- 
dereço do próximo byte da tabela de no- 
tas é colocado no apontador da pilha do 
usuário pelo comando LDU MU- 
POINT. Isto efetivamente transforma a 
tabela de notas na pilha do usuário. 

A instrução ORCC 4 $50 impede — 
“desabilita'”, no jargão da informática 
— interrupções, mascarando o conteú- 
do do registro indicador de status. 
Quaisquer que sejam os valores dos bits 
4 e 6 desse registro, eles passam a ser 1 
quando fazemos a operação “ou” en- 
tre seu conteúdo e 50 em hexadecimal 
(80 em decimal). 











TT | || 


Como U está apontando para a ta- 
bela de notas, a instrução PULU A,X 
traz para dentro de A o próximo byte 
da tabela, e para dentro de X os dois 
bytes seguintes. Além disso, também so- 
ma 3 ao registro U, que passa a apon- 
tar para o próximo byte. 

Os dados necessários para o som vêm 
em grupos de três bytes. O primeiro cor- 
responde ao número de vezes que a no- 
ta será tocada. Os dois seguintes deter- 
minam a duração que influi na frequên- 
cia da nota. 

Em seguida, o registro U é compara- 
do com & MUSIC +57, o endereço fi- 
nal da tabela de notas. O comando BLO 
provoca um desvio se o valor de U for 
menor, pois, nesse caso, ainda não che- 
gamos ao fim da tabela e a próxima ins- 
trução será ignorada. Ela colocaria o en- 
dereço inicial da tabela de volta no 
apontador e a música poderia, então, ser 
tocada novamente. 

De qualquer maneira, o valor do 
apontador volta para MUPOINT, para 
que o processador saiba qual é a próxi- 
ma nota. A duração da nota, que se en- 
contra em X, é colocada temporaria- 
mente na pilha da máquina. 

As instruções LDB 4252 e STA 
$FF20, referentes ao conversor analógi- 
co-digital, preparam-se para usar o alto- 
falante da TV, LEAX —1,X diminui o 
valor de X, e BNE faz o processador re- 
petir a instrução anterior, até que X se- 
ja zero. 

LDX ,S coloca o valor da pilha em 
X, funcionando como um PULS X, sem 
somar nada, no entanto, ao apontador 





da pilha. CLR SFF20 desliga o alto- 
falante da TV e a mesma rotina de con- 
tagem em X é repetida. 

O valor da pilha retorna a X e o nú- 
mero de vezes que a nota vai ser tocada 
é diminuído em uma unidade — DECA. 
Outra instrução BNE faz o processador 
repetir o laço MTWO, até que A seja re- 
duzido a zero. 

A instrução LEAS 2,8 limpa a pilha 
e DEC ,8 subtrai 1 do conteúdo do pró- 
ximo byte da pilha da máquina — nú- 
mero de notas, colocado na pilha no iní- 
cio. BNE MAIN faz o processador vol- 
tar e executar a próxima nota, caso o nú- 
mero de notas não tenha sido reduzido 
a Zero. 

ANDCC *AF permite novamente 
— ou seja, “reabilita” — a ocorrência 
de interrupções, “desmascarando”” o re- 
gistro de status. Finalmente, PULS 
A,PC retira dois valores da pilha da má- 
quina, colocando em A o valor da nota 
— reduzido a zero — e em PC, os pró- 
ximos dois bytes. Eles correspondem ao 
endereço de retorno da sub-rotina, co- 
locado ali quando a rotina foi chama- 
da. O procedimento, nesse caso, é equi- 
valente a um comando RTS. 


Para dotarmos nosso videogame de 
uma trilha sonora, precisaremos utilizar 
o microprocessador especial que o MSX 
possui para produzir sons: o PSG — 
Programable Sound Generator. Apre- 
sentamos, no artigo publicado à página 














Qual a diferença entre os comandos 
outi e otir no MSX? 
No artigo da página 213, vimos co- 


mo empregar o comando de ação em 


| bloco otir. Aqui, utilizamos um coman- 


do muito parecido: outi. 
Tanto otir como outi são usados 
quando se quer transferir dados que es- 


| tão em uma tabela na memória RAM, 


| através de uma porta de saída. Esses 


dois comandos agem sobre os registros 
HL, Be C. HL é usado como aponta- 
dor, B como contador e € contém o nú- 
mero da porta de saída. Assim, antes 
da primeira execução do comando, o 
par HL deve conter o endereço inicial 
da tabela, e o registro B, o número de 
elementos da mesma. 

Ambos somam uma unidade ao con- 
teúdo de HL e subtraem o mesmo de 
B. Mas há uma diferença entre eles: O 
comando otir repete esta operação 
muitas vezes, transferindo vários ca- 
racteres até que B seja reduzido a ze- 


| ro; outi, por sua vez, só transfere um 


número a cada execução. 

O comando otir é, por si mesmo, um 
laço completo, utilizando B como con- 
tador e fazendo sozinho o teste do in- 


| dicador de zeros. Mostra-se, portanto, 


mais adequado quando queremos 
transferir dados a grande velocidade. 


| No artigo anterior, aqui mencionado, 


ele foi utilizado para transferir um ban- 
co de caracteres para a memória de 
vídeo. 


Já a instrução outi deve fazer parte | 


de um laço. Ela vai diminuindo o valor 
de B, mas não é capaz de descobrir por 
si mesma que este foi reduzido a zero. 
Para isso, o programador precisa incluir 
um teste do tipo jr nz. O emprego da 
instrução outl é, assim, mais indicado 
quando precisamos interromper a 


| transferência dos dados a todo instan- 


te para a realização de algum tipo de 


| processamento. Em nosso caso, jamais 
| poderíamos transferir valores para o 


PSG em alta velocidade — obteríamos 
barulho, e não música. 

A transferência foi feita numa velo- 
cidade irregular, sendo interrompida 
por pausas cuja duração é variável. À 


execução dessas pausas e a constan- | 


te mudança nos números dos registros 
que estavam sendo alterados — envia- 
dos por out 160,a — correspondem à 
realização de algum tipo de proces- 


samento. 


OT O Or a RR 
DT 


168, uma introdução ao funcionamen- 
to desse dispositivo. 

O PSG possui catorze registros. Os 
valores ali colocados determinam os di- 
versos parâmetros do som produzido. 
Podemos controlar a tonalidade, o vo- 
lume e sua evolução ao longo do tempo 
(envoltória ou envelope). Temos à nos- 
sa disposição três canais, que funcionam 
simultaneamente, emitindo cada qual 
um som diferente. Todos eles podem to- 
car notas musicais e, também, produzir 
ruídos. 

As rotinas Assembly deste artigo exe- 
cutam Greensleeves em duas vozes — is- 
to é, são usados dois canais para pro- 
duzir acordes. Para que o computador 
saiba que notas tocar e com qual dura- 
ção, um programa BASIC colocará uma 
tabela de notas na memória. 





CONDIÇÕES INICIAIS DO PSG 


A rotina listada a seguir prepara o 
PSG para tocar a música, colocando va- 
lores lidos na tabela dentro dos registros 
apropriados. Use nosso Assembler pa- 
ra montá-la na memória. Não se esque- 
ça de modificar o comando CLEAR da 
linha 5000, para proteger a memória aci- 
ma de &HCFFF. As rotinas em código 
devem ser montadas primeiro. Em se- 
guida, pode-se apagar o Assembler e 
executar o programa BASIC que apa- 
rece no final do artigo. 


10 org -12216 

20 ld h1,-14500 
30 ld b,6 

40 init ld c,160 
50 outi 

60 ld €, 161 

720 outi 

80 yr nz, init 

90 ret 

100 end 


Dispomos de duas alternativas para 
modificar o valor de um registro do PSG 
em BASIC, Podemos utilizar tanto o co- 
mando SOUND R,V— que coloca no 
registro R o valor V— quanto a instru- 
ção OUT. 

O microprocessador PSG é conside- 
rado um periférico da unidade de pro- 
cessamento central, de maneira que exis- 
tem dois endereços da área de comuni- 
cação — I/O — que funcionem como 
portas de entrada e saída. O valor en- 
viado pela porta 160 indica o registro 
que será alterado, enquanto a porta 16] 
corresponde ao destino do novo valor 
do registro. Dessa maneira, O par de ins- 
truções OUT 160,R:OUT 161,V equiva- 
le ao comando SOUND R,Y. 

Como vimos no artigo da página 213, 
existe, em linguagem de máquina, uma 





instrução out que funciona de modo pa- 
recido ao comando BASIC de mesmo 
nome. Contudo, como vamos transfe- 
rir valores de uma tabela para o PSG, 
usaremos um comando de ação em 
bloco. 

Nossa rotina utiliza o comando ou- 
ti, cujas características devemos enten- 
der antes de passarmos a examinar o 
funcionamento do programa. Esse co- 
mando envia o valor contido no ende- 
reço apontado pelo par HL através da 
porta que tem seu número no registro 
C. Em seguida, o conteúdo do par HL 
aumenta em uma unidade e o conteúdo 
de B diminui também em uma unidade. 

O comando outi é útil para transfe- 
rir dados de uma tabela, um a um, atra- 
vés de uma porta. Antes de sua primei- 
ra aparição, devemos colocar em HL o 
endereço inicial da tabela, em €, o nú- 
mero da porta, e em B, o número de ve- 
zes que queremos repetir o processo. Ca- 
da vez que outi é executado, HL passa 
a apontar para o endereço seguinte da 
tabela. B é diminuído e, quando for re- 
duzido a zero, o indicador de zero será 
estabelecido. 

A primeira instrução determina o en- 
dereço inicial da rotina, — 12216. Em se- 
guida, os registros HL, B e € recebem 
os parâmetros da instrução outi. O en- 
dereço inicial da tabela de notas é colo- 
cado em HL por ld hi, — 14450. Como 
são necessários três pares de valores para 
ativar o PSG, a linha ld b,6 coloca 6 em 
B. A linha rotulada com init coloca em 
C o número da porta de saída que de- 
termina o registro. 

Quando se executa a instrução outi 
pela primeira vez, o valor que marca 0 
início da tabela, apontado por HL, é en- 
viado pela porta 160 — conteúdo de €. 
Se olharmos o programa BASIC no fi- 
nal do artigo, veremos que foi enviado 
o número 7. Soma-se uma unidade ao 
par HL, que aponta, então, para o pró- 
ximo número da tabela, e subtrai-se uma 
unidade de B. 

A instrução ld c,161 faz com que 0 
valor enviado por outi na linha seguin- 
te se dirija à porta 161. Se consultarmos 
novamente a listagem BASIC, veremos 
que foi enviado o número 24. O valor 
de HL aumenta novamente e o de B di- 
minui. Como B ainda não foi reduzido 
a zero, o processador retorna ao rótulo 
init. 

O laço entre as linhas 40 e 80 repete- 
se três vezes. A instrução outi é execu- 
tada seis vezes, de forma que são envia- 
dos três pares de números. Subtrai-se de 
B uma unidade seis vezes. Na sexta vez, 
a condição de jr nz,init não é satisfeita, 
e a instrução ret provoca o retorno da 
sub-rotina. 








Cada volta desse laço equivale a um 
comando SOUND. O primeiro valor en- 
viado é o registro, e o segundo, seu no- 
vo conteúdo. Mas que papel desempe- 
nha cada registro? 

A primeira volta do laço coloca 24 no 
registro 7 do PSG. Esse registro selecio- 
na o modo de utilização dos canais de 
som. Cada um dos seus seis primeiros 
bits determina se um canal vai produzir 
som, ruído ou se vai permanecer em si- 
lêncio. Quando valem 1, os três primei- 
ros bits ativam os canais A, Be C, res- 
pectivamente, para a produção de rui- 
do. Os três bits seguintes ativam os ca- 
nais para a produção de sons musicais. 
Como 24 é 00011000 em binário, ele ati- 
va a produção de notas musicais em À 
e B. 

Na segunda volta do laço, o valor 15 
vai para o registro 8 do PSG. Esse re- 
gistro controla o volume do canal A — 
15 é o volume máximo. 

Na terceira e última volta, o registro 
9, que controla o volume do canal B do 
PSG, recebe o valor 15. 





TOCANDO UM ACORDE 


Depois de ativar o PSG, podemos co- 
meçar a tocar nossa música. Greenslee- 
ves compõe-se de acordes de duas no- 
tas, cada uma emitida por um dos ca- 
nais ativados. As notas serão obtidas na 
mesma tabela, que especifica também 
qual é a duração do acorde formado por 
cada par delas. A rotina listada a seguir 
executa um acorde. Monte-a e grave-a 
separadamente. 


LO org -12200 

20 ld h1l,-14494 
30 ld b,4 

ao ld c,161 

50 ld a,0 

bo tune out 160,a 
70 inc a 


80 outi 
90 ir nz, tune 
100 ret 
110 end 


Os acordes são compostos por notas 
emitidas simultaneamente pelos canais 
A e B. Registros do PSG controlam a 
tonalidade de cada nota. Os registros O 
e 1 controlam a tonalidade do canal A, 
enquanto 2 e 3, a do canal B. Os regis- 
tros O e 2 correspondem aos bytes me- 
nos significativos; 1 e 3, aos mais signi- 
ficativos. Para emitir um acorde preci- 
saremos, então, modificar o conteúdo 
de quatro registros do PSG, usando no- 
vamente a instrução outi. Por isso, a ro- 
tina começa acertando os valores de HL, 
BeC, depois de estabelecido o endere- 
ço inicial. 

A instrução ld hl, — 14494 coloca em 





HL o endereço da primeira nota da ta- 
bela. Como emitiremos quatro notas, O 
número quatro é colocado em B. O nú- 
mero da porta 161 — utilizada para en- 
viar novos valores de registros ao PSG 
— é colocado em €. 

Nesta rotina, o registro A conterã o 
número do registro do PSG a ser alte- 
rado; assim. seu valor inicial será O — 
Id a,0 

O comando out 160,a envia o contey- 
do de A pela porta 160, indicando ao 
PSG o registro que será alterado. Em se- 
guida, A aumenta em uma unidade. A 
instrução outi envia, então, através da 
porta 161, o próximo valor da tabela, 
apontado por HL. HL aumenta em uma 
unidade e B diminui o mesmo tanto. En- 
quanto B não for reduzido a zero, a ins- 
trução jr nz, tune repetirá o laço entre as 
linhas 60 e 90. 

Na primeira volta do laço, o registro 
A contém 0, de maneira que o registro 
O do PSG recebe o valor da tabela 
apontado por HL. A cada volta, A au- 
menta em uma unidade e os registros 1, 
2e3 do PSG recebem os próximos va- 
lores da tabela de notas. 

Na quarta vez que outi está sendo 
executado, o valor de B reduz-se a ze- 
ro. A condição de jr nz, tune não é mais 
satisfeita e a instrução ret provoca o re- 
torno da sub-rotina. 





CONTROLE DA DURAÇÃO DO ACORDE 


O som correspondente ao conteúdo 
dos registros do PSG é emitido conti- 
nuamente, até que modifiquemos um de 
seus parâmetros ou desliguemos o PSG. 
Assim, para controlarmos a duração do 
som, usamos uma sub-rotina que não 
faz absolutamente nada por algum tem- 
po, provocando uma pausa. Enquanto 
durar essa pausa, o acorde será execu- 
tado; quando ela terminar, poderemos 
emitir um novo acorde. A duração será 
determinada por um número da tabela 
de notas. Eis a rotina: 


10 org -12183 

20 ld b, (hl) 

30 ldp ld h1,1000 
40 ld de,0 

50 lda dec hl 

60 push hl 

70 sbc hl,de 

B0 pop hl 

90 jr nz, ldgq 


100 dinz ldp 
110 ret 
120 end 


Quando a rotina de emissão do acor- 
de termina, deixa em HL o endereço do 
próximo número da tabela de notas. Es- 
se número indica a duração do acorde, 





O PROCESSADOR DO TRS-COLOR 
Os usuários do TRS-Color costumam 
sentir muita dificuldade quando fazem 
suas primeiras experiências com lin- 
guagem de máquina. Para eles, aqui 
vão algumas recomendações. 

O processador 6809 é um dos mais 
poderosos chips de oito bits. Sua ver- 
satilidade tem, contudo, um preço ele- 
vado, pois o grande número de coman- 
dos e formas de endereçamento pode 
confundir o principiante. 

No 6502 e no Z-B0, processadores | 
das outras máquinas, é possível fazer 
muita coisa interessante com um pe- 
queno conhecimento dos comandos de 
armazenamento e de controle de laços. 
Basta saber que valores colocar nas po- 
sições adequadas. Programas um pou- 
co maiores exigem o uso da pilha para 
a armazenagem temporária, mas isto 
não é um grande problema. 

O 6502, processador do Apple e do 
TK-2000, conta com vários tipos de 
endereçamento. Mas são tão poucas 
as instruções disponíveis que essa van- | 
tagem deixa de ser significativa. 

O 6809 é um precursor dos chips de 
dezesseis bits. Toda a sua estrutura de 


' endereçamento e armazenagem ba- 
| seia-se em números de dois bytes. 


Seus registros comportam dezesseis 
bits. Ao mesmo tempo, ele é um chip 
de oito bits. Cria-se, assim, uma infini- 
dade de modos de endereçamentos — 
surgindo termos como pós-byte e en- 
dereço efetivo —, o que confunde mui- 
ta gente. São tantos os comandos. de 
ação em bloco, executando tarefas di- 
ferentes, que é difícil deduzir suas fun- 
ções pelo nome. 

O que mais confunde o principian- 


| te, contudo, é a utilização das pilhas. 


Há duas pilhas, a do usuário e a da má- 
quina, cada uma com seu apontador. 
E elas não são usadas apenas para 
guardar valores temporariamente. O 
uso inteligente de seus apontadores 


| permite economizar várias linhas de 


programação, mas certas operações 
com as pilhas são de deixar qualquer 
um atordoado. E, pior ainda, é impos- 
sível fazer programas sem esses recur- 
sos avançados. 

A saída está no estudo cuidadoso 
das instruções explicadas no texto. Na 
falta de um manual do 6908, liste as 
características de cada instrução. Ou- 
tra medida obrigatória é a leitura dos 
textos introdutórios à programação em 
código, já publicados em INPUT. Neles 
o usuário do TRS-Color encontrará con- 
ceitos fundamentais sobre o seu pro- 
cessador. 
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e é colocado em B pela instrução ld 
b,(hh. O registro B determinará o nú- 
mero de vezes que o laço rotulado Idp 
vai ser executado. Nesse laço, 1000 é co- 
locado no par HL, que diminui uma 
unidade a cada volta do laço interno 
Idqg. Guarda-se HL temporariamente na 
pilha, para gastar tempo. 

A instrução sbc hl,de subtrai zero — 
conteúdo de DE — do conteúdo de HL. 
Faz-se isto para afetar o indicador de ze- 
ros, quando HL for reduzido a zero, 
pois a instrução pop HL não modifica 
esse sinalizador. Quando HL contém ze- 
ro, a condição de jr nz,ldq não é satis- 
feita e o processador passa ao laço ex- 
terno, controlado por B. 

A cada volta do laço externo, B di- 
minui. Quando ele se torna zero, ret 
provoca o retorno da sub-rotina. 

Podemos controlar o andamento da 
música aumentando ou diminuindo o 
número de execuções do laço interno. 
Para isto, basta colocar um número di- 
ferente de 1000 em HL, na linha 30. 





A ROTINA PRINCIPAL 


O trecho de Greensleeves que vamos 
executar tem 88 acordes. As rotinas que 


RRATA 
ASSEMBLER DO TRS-COLOR 
Para que seu programa Assembler | 
funcione a contento, você precisará fa- 
| zer algumas modificações: 


10 PCLEAR 1I:CLEAR 3000:CLS:PRIN 
T 6233," INICIALIZANDO” :R3=CHRS ( 
13): POKE 146,1 


100 DATA COM,115,3,CWAI,108,1,D | 
| AA,25,,0RA,186,1,TST,125,3,LEAS 

166,3,LEAU,67,3,LEAX,64,3,LEAY, 

65,3,MUL,61,.EORA,184,1,0RB,250 
| 4 


1550 P1=1478:PO=P1:P2=0 


1560 PRINT €448-P2,K;TAB(6)T3(K 
2): PO=PO+LENCTS(K2)) 


1565 IF LEN(TS(K2))+P0>1503 THE 
| N PO=P0-32:P2=P2+32:Pl=P1-32:G0 
| TO 1565 


| 1950 IF X3<>"8* OR BDS<"0* OR B 
D3>"G* THEN 1980 


A alteração na linha 10 é necessá-. 
"ria devido aos POKE que aumentam a 
memória disponível. Se você não exe- 
| cutar esses comandos antes de ler o 
Assembler na fita cassete, ele não con- 
seguirá montar o videogame. 
As demais modific ajustam al- 
guns defeitos contidos no programa 
original. 





mostramos até agora ativaram o PSG e 
tocaram um acorde apenas. Para a exe- 
cução da melodia toda, precisaremos de 
um programa principal, que chame or- 
denadamente as sub-rotinas. Monte a 
rotina que se segue com seu Assembler, 
gravando depois os códigos. 


10 oro -12166 
20 call -12216 
30 ld b,8BB 

40 loop puah bc 
50 call -12197 
60 push hl 

70 call -12183 
BO pop hl 

90 inc hl 


100 pop bc 

110 dinz loop 
120 call -12213 
130 ret 

140 end 


A primeira providência do progra- 
ma principal é chamar a sub-rotina que 
ativa o PSG, que fica no endereço 
— 12216. Quando o processador retor- 
na, HL aponta para a primeira nota da 
música — sétimo número da tabela. 

A instrução ld b,88 coloca em B o nú- 
mero de acordes que serão executados. 
Como a rotina que emite o acorde utili- 
zará o registro B como contador, o con- 
teúdo deste é temporariamente guarda- 
do na pilha com push BC. 

A rotina que emite o acorde é, então, 
chamada. Note que o endereço de trans- 
ferência é — 12197, e não — 12200 (veja 
listagem). Ignora-se a primeira linha — 
linha 20 — da rotina do acorde, pois HL 
já contém o valor — 14494, que corres- 
ponde ao sétimo número da tabela. Es- 
sa linha foi incluída no programa para 
que a melodia possa ser tocada mais de 
uma vez, sem precisarmos ativar nova- 
mente o PSG. 

Quando o processador retorna da 
sub-rotina, o par de registros HL apon- 
ta para o próximo número da tabela. 
Como HL será usado como contador na 
sub-rotina de pausa, seu valor também 
é guardado na pilha com push hl. 

A instrução call — 12183 chama a 
sub-rotina que é responsável pela dura- 
ção do acorde. 

Quando a rotina de pausa termina, 
o conteúdo de HL é recuperado da pi- 
lha. Esse valor, porém, está “atrasado”, 
pois aponta para o número da tabela 
que controla a duração da nota, já usa- 
do pela rotina de pausa. Para que HL 
aponte para a próxima posição da tabe- 
la, precisamos somar 1 ao seu conteú- 
do, usando inc hi. 

O conteúdo de B — nosso contador 
de acordes — é recuperado da pilha por 
pop bc. Em seguida, a instrução djnz 


loop subtrai 1 de Be volta para o rótu- 
lo loop enquanto B não tiver sido redu- 
zido a zero. 

O laço entre as linhas 40 e 110 é re- 
petido 88 vezes, uma para cada acorde. 
As notas são executadas até que sua to- 
nalidade se modifique — sendo, portan- 
to, substituídas por outras notas, Se o 
programa parasse aqui, o PSG ficaria 
emitindo o último acorde da canção du- 
rante todo o jogo, o que você certamen- 
te não deseja. 

Para desligar o PSG, a rotina que o 
ativou no início é chamada novamente, 
só que com outro endereço de transfe- 
rênçia. A instrução call —- 12213 ignora 
a primeira linha da sub-rotina, que co- 
locava o endereço inicial da tabela em 
HL. Assim, como HL ainda aponta pa- 
ra O próximo número não usado na ta- 
bela, a sub-rotina utiliza os últimos seis 
números. Se procurarmos na listagem 
BASIC, veremos que estes são 8, 0,9, 
0, 10€ 0. Os registros 8,9€e 10, que con- 
trolam o volume dos três canais, rece- 
bem, então, o valor 0, e o PSG é si- 
lenciado. 

Como toda rotina que se preze, esta 
termina com ret. 

interessante notar a importância do 
apontador HL na execução da melodia. 
No decorrer da execução, ele percorre 
toda a tabela. Para que isso seja possi- 
vel, a cada volta do laço entre as linhas 
40 e 110, seu valor é atualizado quatro 
vezes pela instrução outi e uma vez por 
inchl — o que corresponde à transferên- 
cia de cinco valores da tabela. Quatro 
deles vão para o PSG e um vai para o 
registro B controlar a duração da nota. 
Como a rotina de pausa utiliza HL, en- 
tre a execução das linhas 60 e 80 o apon- 
tador da posição atual na tabela de no- 
tas fica guardado na pilha. 


A TABELA DE NOTAS 





O conjunto de rotinas apresentado 
executa uma melodia em duas vozes. Na 
realidade, ele pode tocar qualquer me- 
lodia desse tipo. Cabe à tabela de notas 
determinar os acordes que serão inclui- 
dos. Para criá-la, apague o Assembler 
e use este programa BASIC. 


10 CLEAR 200,-14501 

20 FOR I=0 TO 451 

30 READ A:POKE -14500+I,A 
40 NEXT 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 


7,24,8,15,9,15 
253,0,253,0,10 
213,0,253,0,30 
189,0,213,0,10 
169,0,213,0,15 
159,0,213,0,5 

169,0,28,1,10 








AR 


1070 DATA 
1080 DATA 








189,0,28,1,30 
225,0,225,0,10 
28,1,225,0,15 
253,0,225,0,5 
225,0,253,0,10 
213,0,253,0,30 
253,0,253,0,10 
253,0,63,1,15 
12,1,63,1,5 
253,0,63,1,10 
225,0,253,0,17 
225,0,169,0,10 
12,1,225,0,10 
169,0,82,1,20 
253,0,82,1,10 
213,0,253,0,30 
189,0,253,0,10 
169,0,213,0,15 
159,0,213,0,5 
169,0,213,0,10 
189,0,28,1,30 
225,0,28,1,10 
28,1,225,0,15 
253,0,225,0,5 
225,0,225,0,10 
213,0,253,0,30 
225,0,225,0,5 
253,0,213,0,5 
253,0,189,0,5 


| 12,1,169,0,15 
| 45,1,169,0,5 


12,1,169,0,10 

253,0,253,0,30 
253,0,126,0,10 
253,0,169,0,10 


| 253,0,253,0,30 


142,0,213,0,30 
142,0,189,0,5 
142,0,169,0,5 
142,0,169,0,15 
159,0,189,0,5 
169,0,213,0,10 
189,0,28,1,30 
189,0,253,0,5 
225,0,225,0,10 
28,1,225,0,15 
253,0,253,0,5 
225,0,28,1,10 


1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 





213,0,253,0,30 
213,0,225,0,5 
253,0,213,0,10 


253,0,213,0,15 


12,1,225,0,5 
253,0,253,0,10 
225,0,82,1,17 
225,0,169,0,10 
12,1,225,0,10 
82,1,82,1,20 
82,1,123,1,10 
142,0,170,1,30 
142,0,123,1,5 
142,0,82,1,10 
142,0,82,1,15 
159,0,123,1,5 
169,0,170,1,10 
189,0,28,1,30 
189,0,253,0,5 
225,0,225,0,10 
142,0,225,0,15 
253,0,253,0,5 
225,0,28,1,10 
213,0,253,0,30 
225,0,225,0,5 
253,0,213,0,5 
253,0,189,0,5 
12,1,169,0,15 
45,1,169,0,5 
12,1,82,1,10 
253,0,253,0,30 
253,0,126,0,10 
253,0,169,0,10 
253,0,253,0,30 
8,0,9,0,10,0 


HERRRRRR! 


A linha 10 protege a memória acima 
de — 14501 para ali colocar a tabela. O 
laço FOR...NEXT entre as linhas 20 e 
40 usa READ para obter os números da 
tabela e POKE para transferi-los para 
a memória. 

Cada linha DATA contém os dados 
necessários para um acorde. Os núme- 
ros são respectivamente: byte menos sig- 
nificativo da tonalidade do canal A, 
byte mais significativo dessa mesma to- 
nalidade, byte menos significativo da to- 
nalidade do canal B, byte mais signifi- 
cativo dessa mesma tonalidade e dura- 
ção do acorde. 

Não se preocupe com os valores que 
determinam as tonalidades das notas. 
Em um próximo artigo, apresentaremos 
uma tabela para a conversão dos pará- 
metros da instrução PLAY nos valores 
de registros do PSG. 


































| | | 1 
CUEEND DO Dr ot ia 0) [207 Drooramação DE JOGOS 29 Fá FSM HM RR BRR] 


OJOGO 


Aqui está a última parte do jogo do 
Otelo. Após digitar as linhas necessárias 
para completar a movimentação do jo- 
gador, a rotina de movimentação do 
computador e o final da rotina de jogo, 
você poderá se considerar pronto para 
testar suas habilidades, desafiando o seu 
computador. 





VERIFICAÇÃO DAS POSIÇÕES 


2090 IF NF=1 THEN 2120 

2100 COLOR 1:LINE(0,182)-(255,1 
91) ' PSET,BF - DRAW" C4S8BMO ' 182" :A 
$="LONGE DA JOGADA” :GOSUB 9300: 
FOR F=1 TO 900:NEXT F 

2110 GOTO 2000 

2120 RF=0:FOR Q=1 TO 8:IF C(Q)= 
O THEN 2170 

2130 XP=X:YP=Y 

2140 XP=XP+D(Q,1):YP=YP+D(Q, 2): 
IF XP=0 OR XP=9 OR YP=0 OR YP=9 
THEN C(Q)=0:GOTO 2170 

2145 IF B(XP,YP)=2 THEN 2140 
2150 IF B(XP,YP)=1 THEN RF=1:GO0 
TO 2170 

2160 IF, B(XP,YP)=0 THEN C(Q)=0 
2170 NEXT Q 

2180 IF RF=1 THEN 2210 

2190 COLORI:LINE(0,182)-(255,19 
1), PSET, BF: DRAW" SBC4BMO, 182": AS 
=" JOGADA NÃO GANHA A TRILHA” :GO 
SUB 9300:FOR F=1 TO 900:NEXTF 
2200 GoToO 2000 

2210 FOR Q=1 TO B:IF C(Q)=0 THE 
N 2250 

2220 XP=X+D(Q,1): YP=Y+D(Q,2) 
2230 IF B(XP,YP)=1 THEN 2250 









(2) 


2240 B(XP,YP)=1:XP=XP+D(Q,1):YP. 
=YP+D(Q,2):GOTO 2230 

2250 NEXT Q 

2260 B(X,Y)=1 

2270 CP=2:RETUAN 


2090 IF NF=1 THEN GOTO 2120 
2100 PRINT AT 17,0;"LONGE DA JO 
GADA”: FOR F=1 TO 500: NEXT F 
2110 PRINT AT 17,0;" 
": GOTO 2000 

2120 LET RF=O0: FOR Q=1] TO 8: IF 
C(Q)=0 THEN GOTO 2170 
2130 LET XP=X: LET YP=7Y 
2140 LET XP=KP+D(Q,1): 


LET YP=Y 


P+D(Q,2): IF XP=0 OR XP=9 OR YP 
=0 OR YP=9 THEN LET C(Q)=0: GO 
TO 2170 


2145 IF B(XP,YP)=2 THEN GOTO £ 
140 


2150 IF B(XP,YP)=1 THEN LET AF 
“1: GOTO 2170 

2160 IF B(XP,YP)=0 THEN LET Cí 
Q)=0 


2170 NEXT Q 
2180 IF RF=1 THEN GOTO 2210 
2190 PRINT AT 17,0;" JOGADA NÃO 
GANHA A TRILHA”: FOR F=1 TO 500 
: NEXT F 
2200 PRINT AT 17,0;" 

": GOTO 2000 
2210 FOR Q=1 TO B: IF C(Q)=0 TH 
EN GOTO 2250 
2220 LET XP=K+D(Q,1): 
2230 IF B(XP,YP)j=1 THEN GOTO 2 
250 
2240 LET B(XP,YP)=1: 
D(0,1): LET YP=YP+D(Q,2): 
2230 
2250 NEXT Q 


LET YP=T+ 


LET XP=XP+ 
GOTO 


Apresentamos neste artigo a segunda 
metade do jogo do Otelo. Depois 

de digitá-la, completando o programa, 
desenvolva algumas jogadas 
inteligentes... e derrote o computador! 


2260 LET B(X,Y)=1 
2270 LET CP=2: RETURN 


Ml 


2090 IFNF=1 THEN 2120 

2100 LINE (0,18B2)-(255,191),1,BF 
“DRAW"C15S88M50,182”":AS="LONGE 
DA JOGADA" :GOSUB9300:FORF=1TO90 
O:NEXTF 

2110 GOTO 2000 

2120 RF=0:FORQ=1 TO B:IFC(Q)=0 

THEN2170 

2130 XP=X:YP=Y 

2140 XP=KP+D(Q,1) :YP=YP+D(Q,2): 
IFXP=0 OR XP=9 OR YP=0 OR YP=9 
THENC (Q) =0:G0OTO2170 

2145 IF B(XP,YP)=2 THEN 2140 
2150 IF B(XP,YP)=1 THEN RF=1:G0 
TO 2170 

2160 IF B(XP,YP)=0 THEN C(Q)=0 
2170 NEXTOQ 

2180 IF RF=1 THEN 2210 

2190 LINE(0,182)-(255,191),1,BF 
-DRAW"C15SBBM10,18B2”":AS=" JOGADA 
NAO GANHA A TRILHA” :GOSUB9300: 
FORF=1T0900:NEXTF 

2200 GOTO 2000 

2210 FORQ=1TOSB:IFC(Q)=0THEN2250 
2220 XP=X+DI(Q, 1) :YP=Y+D(Q,2) 
2230 IF B(XP,YP)=1 THEN2250 
2240 B(XP,YP)j=1:XP=KP+DIQ,1):TP 
=YP+D(Q0,2) :6G0T02230 

2250 NEXTO 

2260 B(X,Y)=1 

2270 CP=2:RETURN 


Lélio] 


2090 IF NF = 1 THEN 2120 


2100 VTAB (17): PRINT "JOGADA 
LONGE DAS MINHAS PECAS”: FOR F 
= 0 TO 1500: NEXT 
2110 VTAB (17): PRINT * 

". GOTO 2 
000 
2120 RE = 0: FOR Q = 1 TO B: TF 
C(o) = O THEN 2170 
2130 XP = X:TP = Y 
2140 KP = XP + D(Q,1):YP = TP + 
D(0,2): IF (XP = O OR XP = 9) 


“OR (YP = 0 OR YP = 9) THEN C(Q) 


= O: GOTO 2170 
2145 TF B(XP,YP) = 2 THEN 2140 
2150 IF B(XP,YP) = 1 THEN RF = 


Ll: GOTO 2170 


2160 IF B(XP,YP) = O THEN CiQ) 
= () 

2170 NEXT 

2180 IF BF = 1 THEN 2210 











2190 VTAB (17): PRINT FSUA JOG 
ADA NÃO GANHA A TRILHA”: FOR F 
= O TO 1500: NEXT 
2200 VTARB (17): PRINT º 

Pres ANTA) 
000 
2210 FOR Q= 1 TOS: IF CIQ) = 


O THEN 2250 
2220 XP <= X+DIQ,1):TP = T+D 


(0,2) 
2230 IF B(XP,YP) = 1 THEN 2250 
2240 B(XP,YP) = 1:XP = XP + D(Q 


1):YP = YP + D(Q,2): GOTO 2230 


2250 NEXT Q 
2260 B(X,Y) = ] 
2270 CP = 4: RETURN 


Antes de saltar para a linha 2120, o 
indicador NF vê se há alguma peça do 
computador em um quadrado adjacen- 
te (linha 2090). Caso exista, a linha 2100 
imprime uma mensagem de erro. As li- 
nhas 2120 a 2170 verificam se a jogada 
encosta a peça em alguma fileira de pe- 
ças do adversário. 

A linha 2140 verifica se a posição che- 
cada no passo anterior está dentro dos 
limites do tabuleiro. Se não estiver, es- 
ta posição será abandonada e a próxi- 
ma, testada. Na linha 2145, testamos se 
a peça em exame pertence, de fato, ao 
computador. Em caso afirmativo, o 
programa volta para a linha 2140 e atua- 
liza a posição. 

A linha 2180 examina o resultado da 
ultima operação. Se a fileira foi encon- 
trada, o programa salta para a linha 
2210. As linhas 2190 e 2200 imprimem 
uma mensagem no caso de uma filei- 
ra não ser ladeada. O programa vol- 
ta para a linha 2000. 





+), 


EE | MOVIMENTAÇÃO DO JOGADOR: 
VERIFICAÇÃO 

“DAS POSIÇÕES 

= ROTINA DE MOVIMENTAÇÃO 
DO COMPUTADOR 


A rotina que descreve a movimenta- 
ção do jogador está contida entre as li- 
nhas 2210 e 2260 do programa. O teste 
C(Q) = 0, da linha 2210, verifica se uma 
fileira do adversário foi encontrada, por 
meio de um ciclo que vai de 1 a 8. Se 
não existir uma fileira naquela direção 
(C(Q)=0), o programa salta para a li- 
nha 2250 e verifica o Q seguinte. A po- 
sição do primeiro quadrado da fileira a 
ser tomada — linha 2040 — é atribuida 
a XPeYP. 

Na linha 2230, o computador testa se 
o quadrado em questão é o último da 
fileira, encerrando-a, portanto. Em ca- 
so afirmativo, o programa salta para a 
linha 2250. Na linha 2240, o programa 
atribui '“'um”” ao quadrado e, em segui- 
da, volta para a linha 2230, onde testa 
o próximo quadrado. 

Na linha 2260, o quadrado do joga- 
dor recebe o valor inicial “um”. O in- 
dicador CP recebe o valor “dois” para 
o computador e o programa retorna 
(por meio da linha 2270). 





A JOGADA DO COMPUTADOR 


3000 COLOR 1:LINE(0,182)-(255,1 
91), PSET,BF:AS="MOVIMENTO DO CO 
MPUTADOR” : DRAW" 58C3JBM26, 182" :GO 
SUB 9300:NF=1:MX=0:FOR X=1 TO 8 
















E TT FINALDAROTINA 
a a qua A A 
ja ANÚNCIO DO VENCEDOR 
E OPÇÃO PARA 

NOVA PARTIDA 


:'FOR Y=1 TO B 

3010 IF B(X,Y)<>0 THEN 3070 
3020 FOR F=1 TO B:XP=X:YP=Y:DX= 
D(F,1):DY=D(F,2):RF=0 

3030 XP=XP+DY:YP=YP+DX: IF XP=0 
OR XP=9 OR YP=9 THEN 3060 

3040 IF B(XP,YP)=1 THEN RF=1:GO 
TO 3030 

3050 IF B(XP,YP)=2 AND RF=1 THE 
N N(NF)=F:X(NF)=X:Y(NF)=Y:NFE=NF 
+1:F=9 

3060 NEXT F 

3070 NEXT Y,X:NF=NF-1 

3075 IF NF=0 THEN 3300 

3080 FOR F=1 TO NF:X=X(F):Y=Y(F 
) :DX=D(N(F),1):DY=D(N(F),2):CF= 
O 


3090 X=X+DY:Y=Y+DX:IF B(X,Y)=1 
THEN CF=CF+1l:GOTO 3090 

3100 IF CF>MX THEN MX=CF:MF=F 
3110 NEXT F 

3180 FOR F=1] TO B:X=N(MF):Y=Y(M 
F) :DX=D(F,1):DY=D(F,2) 

3190 X=X+DYT: Y=Y+DX 

3195 IF Xc<l OR X>8 OR Y<l OR Y> 
B THEN 3260 

3200 IF B(X,Y)=1 THEN 3190 

3210 IF B(X,Y)=2 THEN 3230 

3220 IF B(X,Y)=0 THEN 3260 

3230 X=X(MF):Y=Y (MF) 

3235 B(X,Y)=2:X=X+DY:Y=Y+DX 
3240 IF B(X,Y7)=2 THEN 3260 

3250 GOTO 3235 

3260 NEXT F 

3265 DRAW"S16;C2;BM118,150"+NUS 
(X (MF) ) +NUS (Y (MF))+"9B"” 

3270 CP=1:RETURN 

3300 COLOR 1:LINE (0,182)-(255, 
191), PSET,BF:AS="NAO POSSO MOVE 
AR”: DRAW" SBC4BM50,182":GOSUB 930 
O:FOR F=1 TO 50:NEXT:CP=]:RETUR 
N 


3000 PRINT '*'" PENSANDO. ..": 
NE=1: LET MX=0: FOR 


LET 
n=1 TO 6: 
















TI Tm E 


FOR Y=1 TO 68 
3010 IF B(X,Y7)<>0 THEN GOTO 30 
70 


3020 FOR F=1 TO 8: LET XP=X: LE 
T YP=Y: LET DX=D(F,1): LET DY=D 
(F,2): LET RF=0 


3030 LET XP=XKP+DY: LET YP=YP+DA 
* IF XP=0 OR XP=9 OR YP=0 OR TP 
=9 THEN GOTO 3060 

3040 IF B(XP,YP)=1 THEN 
=1: GOTO 3030 

3050 IF B(XP,YP)=2 AND RF=1 THE 
N LET N(NF)=F: LET X(NF)=X: LE 
T Y(NF)=Y: LET NF=NF+1: LET F=9 
3060 NEXT E 

3070 NEXT Y: NEXT X: LET NF=NEF- 


LET RF 


IF NF=0 THEN GOTO 3300 
FOR F=1 TO NF: LET X=X(F): 
LET DX=D(N(F),1): 
LET CF=0 

LET Y=Y+DX: IF 


l 
3075 
3080 
LET Y=Y(F): 
LET DY=D(N(F),2): 
3090 LET X=K+DTYT: 


B(X,Y)=1 THEN LET CF=CF+l: GO 
TO 3090 








































PROGRAMAÇÃO DE MATRIZES 
A programação de jogos de tabulei- 
ro em BASIC utiliza quase sempre a 
mesma técnica: a da programação de 
matrizes. Uma matriz retangular, divi- 
dida em linhas e colunas, é a estrutura 
| de dados ideal para a programação e re- | 
presentação de tabuleiros de xadrez, 
damas, Otelo, Reversi, Trilha, jogo da 
velha e outros. Entretanto, jogos que 
não seguem o esquema de ''quadradi- 
| nhos” identificados em linhas e colu- 
nas — como gamão, gomoku e ludo — 
também podem ser programados atra- 
| vés de matrizes. 
| Em um jogo de tabuleiro retangular, 
geralmente uma só matriz bidimensio- | 
nal não basta para armazenar todos os 
dados exigidos. Tomemos como exem- 
plo o xadrez. A cor dos quadrados do 
tabuleiro pode ser computada por meio 
de uma equação simples. É mais fácil, 
porém, armazenar esse tipo de dado 
| com códigos numéricos, em uma ma- 
triz COR (8,8). Precisaremos, ainda, 
de uma matriz para indicar as peças 
que ocupam cada quadrado (novamen- 
te, podemos utilizar códigos, como 
pião = 1, torre = 2 e assim por diante). 
Outras matrizes serão necessárias pa- 
ra dados referentes a movimentos, 
capturas etc. 

Tudo isso torna a programação de 
jogos de tabuleiro mais complexa do 
que parece. Portanto, se você preten- | 
de testar sua habilidade como progra- 
mador, escolha um jogo bem fácil pa- 
ra começar! 


==. — e 


3100 IF CF>MX THEN LET MX=CF: 

LET MF=E 

3110 NEXT F 

3180 FOR F=1 TO B: LET X=X(ME): 
LET Y=Y(MF): LET DX=D(F,1): LE 

T DY=D(F,2) 

3190 LET X=X+DY: LET Y=Y+DX 

3195 IF X<l OR X>8 OR Y<1 OR Y> 

B THEN GOTO 3260 


3200 TF. B(X,Y)=1 THEN GOTO 319 
SE IF B(X,Y)=2 THEN GOTO 323 
3220 IF B(X,Y)=0 THEN GOTO 326 
4230 LET X=X(MF): LET Y=Y(MF) 
3235 LET B(X,Y)=2: LET K=K+DY: 


LET Y=Y+DX 


3240 IF B(X,Y)=2 THEN GOTO 326 
O 

3250 GOTO 3235 

3260 NEXT F 

3265 PRINT X(MF),Y(MFE): INPUT A 
- 

3270 LET CP=1: RETURN 

3300 PRINT AT 17,0;"NAO POSSO J 
OGAR”": FOR F=1 TO 500: NEXT F 


3305 PRINT AT 17,0;" 
3310 LET CP=1 
3320 RETURN 


3000 LINE(0,182)-(255,191),1,BF 
- DRAW” S8C15BM30,182”":AS="COMPUT 
ADOR JOGANDO” :GOSUB9300:NF=1:MX 
=0:FORK=1TOB:FORY=1TOB 

3010 IFB(X,Y)<>0THEN3070 

3020 FORF=1TOB:XP=KX:YP=Y:DXK=D(F 
1) :DY=D(F,2):RF=0 

3030 XP=KP+DY:YP=YP+DK:IFXP=0 O 
A XP=9 OR YP=0 OR YP=9 THEN3060 
3040 IFB(XP, YP)=1THENRF=1:GOTO3 
030 

3050 IFB(XP,YP)=2 AND RF=1 THEN 
N(NF)=F:X(NF)=X:Y (NF) =Y:NE=NE+ 
1:F=9 

3060 NEXKTF 

3070 NEXTY,X:NF=NF-1 

3075 IF NF=0 THEN 3300 

3080 FORF=1ITONF:X=K(F):Y=Y(F):D 

X=D(N(E),1):DY=D(N(F),2):CF=0 
3090 X=K+DY:Y=Y+DX:IFB(X,Y)=1TH 
ENCF=CF+1:G0T03090 

3100 IFCF>MX THEN MX=CF;:MF=F 
3110 NEXTF 

3180 FORF=1TOB:X=X(MF):Y=Y(MEF): 

DX=D(F,1):DY=D(F,2) 

3190 X=K+DY:Y=TY+DAK 

3195 IFXCI OR X>B OR Y<l OR Y>B 
THEN3260 

3200 IF B(X,Y)=1 THEN 3190 

3210 IF B(X,Y)=2 THEN 3230 

3220 IF B(X,Y)=0 THEN 3260 

3230 X=X (MF) :Y=Y (MF) 

3235 B(X,Y)=2:X=X+DY: Y=Y+DX 
3240 IF B(X,Y)=2 THEN 3260 

3250 GOTO 3235 

3260 NEXTF 

3265 DRAW"S16BM114,154"+NUS (X(M 
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F)) +NUS (Y (MF) )+" 58” 

3270 CP=1:RETURN 

3300 LINE(0,182)-(255,191),1,BF 
: DRAW" C15S8BM50,182":AS="NÃO PO 
880 JOGAR” :GOSUB9300:FORF=1TO90 
O:NEXTF:CP=1: RETURN 


3000 NF = 1L:MX = 0: FOR X = 17T 
OB: FOR Y = 1 TOB 
3010 TF B(X,Y) < > O THEN 307 
0 
3020 FOR F = 1 TO B:XP = X:YP 
= Y:DX = D(F,1):DY = D(F,2):RF 
= 0 
3030 XP = XP + DY:YP = YP + DX: 
IE (XP = 0 0R XP = 9) OR (TP = 
O OR YP = 9) THEN 3060 
71040 IF B(XP,YP) = 1 THEN RF = 
1: GOTO 3030 
3050 IF B(XP,YP) 
1 THEN N(NE) = F:X(NF) = 
) = Y:NF = NF + 1:F = 9 
34060 NEXT F 


= 2 AND BF = 
XK:Y (NF 


3070 NEXT Y: NEXT X:NF = NF - 
1 
3075 IF NF = O THEN 3300 











3080 


FOR F = 1 TO NF:X = X(F): 
T = TLE):DX = D(N(F),1):DT - DÍ 
N(F),2):CF = 0 

3090 XX =X + D7:T = T+ DX: IF 


B(X,7) = 1 THEN CF = CF + 1: GO 
TO 3090 

3100 IF CF > MX THEN MX = CF:M 
F = F 

3110 NEKT 

3180 FOR F = 1 TOB:X = X(ME): 


Y = Y(MF):DX = D(F,1):DY = D(EF, 
2) 

3190 X = X + DY:Y = Y + DX 

3195 IFXK<IORX>BORYã< 
1 OR Y > B THEN 3260 

3200 IF B(X,Y7) = 1 THEN 3190 
3210 IF B(X,Y) = 2 THEN 3230 
3220 IF B(X,Y) = O THEN 3260 
3230 X = X(MF):Y = Y(ME) 


3235 B(X,Y) = 2:X = X + DYT:Y = 
Y + DX 

34240 IF B(X,Y) = 2 THEN 3260 
3250 GOTO 3235 

3260 NEXT 

3265 VTAB (17): PRINT "MINHA J 


OGADA (LINHA, COLUNA) = ";X(MF); 
“+ FY(ME): FOR F = O TO 3000: N 
EXT 
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J270 VTAB (17): PRINT ” 

":CP = 1: RETURN 

3300 VTAB (17): PRINT "NAO POS 
80 JOGAR”: FOR F = O TO 1500: N 


EXT (( 


3310 VTAB (17): PRINT * 
":CP = 1: RETURN 


No começo, o número de quadrados 
em uma fileira é um, e o número máxi- 
mo de peças, zero (linha 3000). Dois la- 
ços — com variáveis de controle X e Y 
— são iniciados, com a função de pro- 
curar espaços vazios no tabuleiro, Esta 
é a parte do programa que consome 
maior tempo. No decorrer do jogo, à 
medida que o número de quadrados va- 
zios diminui, o tempo de jogada do 
computador também vai diminuindo. 

A linha 3010 verifica se o quadrado 
está vazio. Se não estiver, o computa- 
dor salta os próximos comandos (linha 
3070). As linhas que vão de 3020 a 3060 
verificam se o quadrado está no fim de 
uma fileira que poderá ser tomada pelo 
computador. XP e YP são usados da 
mesma maneira que anteriormente. DX 
e DY representam os conteúdos do ve- 
tor direção D() e economizam bastante 
espaço de memória. 

A linha 3030 checa se o quadrado que 
vai ser testado está dentro dos limites do 
tabuleiro. Se ele não estiver, a próxima 
direção será testada, Se o quadrado em 
exame pertencer ao jogador, a rotina 
voltará para a linha 3030 para verificar 
se o quadrado seguinte está ocupado por 
ele, 

A linha 3050 examina o tabuleiro, pa- 
ra saber se está sendo ocupado pelo 
computador. Caso esteja, e se alguma 
fileira tiver sido encontrada, as posições 
iniciais serão gravadas em XQ e Y(), e 
o número da direção será gravado em 
NQ. O contador que indica o número de 
coordenadas encontradas é também in- 
crementado, 

Apenas a primeira fileira será ''me- 
morizada””, para garantir que a busca 
leve o menor tempo possível. 

As linhas 3080 a 3110 encontram a 
jogada capaz de fornecer o placar mais 
longo em uma linha reta, Um ciclo que 
varia de 1 até NF (número de quadra- 
dos encontrados) é acionado. X e Y são 
equacionados com X(F) e Y(F). As 
coordenadas de direção (DX e DY) re- 
cebem valores iniciais correspondentes 
às direções indicadas por N(F). Um con- 
tador temporário (CF) é zerado a cada 
execução do ciclo. 

A linha 3090 verifica se a peça que 
foi testada é a do jogador. Em caso afir- 
mativo, CF é incrementado e o próxi- 
mo quadrado naquela direção torna-se 


as = et Sã sã a 








objeto de teste. A linha 3100 compara 
o número encontrado (CF) com o valor 
máximo anterior (MX). Se o primeiro 
for maior, MX assume o valor de CF e 
MF, as coordenadas da melhor peça en- 
contrada, indicada pelo valor do conta- 
dor do laço, ou seja, F. 

As linhas 3180 a 3260 executam a ro- 
tina de movimentação. A linha 3180 ini- 
cia um ciclo que vai de 1 a 8, de forma 
que todas as fileiras possam ser encon- 
tradas. 

As variáveis X, Y, DX e DY recebem 
valores iniciais conforme foi explicado 
anteriormente. A linha 3195 checa se X 
e Y ainda estão no tabuleiro. Caso eles 
não estejam, o programa salta imedia- 
tamente para a linha 3260, que contém 
uma instrução NEXT. 

A linha 3200 verifica se o jogador es- 
tá ocupando um quadrado. Se estiver, 
a rotina salta para tentar o próximo qua- 
drado da fileira. Nenhum quadrado é al- 
terado, pois a rotina está apenas reali- 
zando testes. 

Se a fileira terminar em um quadra- 
do ocupado pelo computador, X e Y são 
reinicializadas e as linhas 3235 a 3250 al- 
teram todos os quadrados na fileira, Se 
um quadrado vazio for encontrado, 
tenta-se uma nova direção. 

Ássim que a rotina de movimenta- 
ção tiver decidido para qual quadrado 
irá se dirigir, a linha 3265 imprimirá as 
coordenadas e aguardará que a tecla 
< ENTER > seja pressionada, 

Na vez do jogador, o indicador CP 
começa valendo “um” (linha 3270) e, 
depois, volta para o ciclo principal. 


FIM DE JOGO 


4000 IF PS>CS THEN 5000 
4010 IF PB=C8 THEN 6000 


o = o =. 








Como adaptar um jogo que utiliza 
peças coloridas para um micro com 
vídeo monocromática? 
| Dependendo do tipo de jogo, a adap- 
| tação não é nada fácil. Mas existem al- 
| gumas alternativas cujo resultado é 
bastante razoável: 


e Para diferenciar as peças dos opo- 
nentes, utilize recursos gráficos como 


| hachurados, quadriculados ou pontilha- 

| dos, cujo efeito é bem visível em preto 
e branco. Você só terá problemas se as 
peças forem pequenas a ponto de não 
haver espaço para nenhum tipo de de- 
senho que as identifique. 


| « Também como elemento de diferen- 
ciação, faça uso do vídeo inverso/vídeo 
| direto — por exemplo, pedras pretas 
em um quadrado preto, pedras brancas 
em um quadrado branco e pedras so- 

| bre quadrados de outra cor. 


e Se o seu computador possui um vi- 
deo monocromático multitonal (isto é, 
em que as cores têm correspondência 
em diversas tonalidades de verde ou 
cinza), identifique as peças dos opo- 
nentes utilizando intensidades ou bri- 
lhos diferentes. 


4015 AS="FOI FACIL” 

4020 COLOR 1:LINE(0,182)-(255,1 
91), PSET,BF:DRAW"S8C2BM70,1B2": 
GOSUB 9300 

4025 FOR F=1 TO 1500:NEXT F 
4030 COLOR 1:LINE(0,182)-(255,14 
91),PSET,BF:AS="QUER JOGAR OUTR 
A VEZ 7": DRAW"C3BMO, 182” : GOSUB 
9300 


4040 AS=INKEYS: IF AS<>"8" AND A 
S<>"N” THEN 4040 

4050 IF A$="S" THEN RUN 

4060 END 

5000 AS="VOCE TEVE SORTE” 

3010 GOTO 4020 

6000 AS=" EMPATAMOS” :GOTO 4020 


4000 IF PS>CS THEN GOTO 5000 

4010 IF PS=CS THEN GOTO 6000 

4020 PRINT AT 17,0; INK Z; Fool 
FACIL |!” 


4030 PRINT "QUER JOGAR OUTRA VE 
Z ? (8/M)” 


4040 LET AS=INKEYS: IF ASS" 
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AND AS<>"N” THEN GOTO 4040 
4050 IF A$S="S" THEN RUN 
4060 STOP 

5000 PRINT AT 17,0; 
TEVE SORTE !” 


INK 2;" VOCÊ 


5010 GOTO 4030 

6000 PRINT AT 17,0; INK 2;"NOS 
EMPATAMOS ... PRE 
CISO PRATICAR MAIS !": GOTO 403 
Ú 


4000 IF PS>CS THEN 5000 

4010 IF PS=CS THEN 6000 

4015 A$="FOI MUITO FACIL” 

4020 LINE(0,182)-(255,191),1,BF 
: DRAW"C1558BM70, 182": GOSUB9300 
4025 FORF=1TO15S00:NEXTF 

4030 LINE(0,182)-(255,191),1,BF 
*AS="QUER JOGAR NOVAMENTE” : DRAW 
"C15BM30, 182” :GOSUB9300 

4040 AS=INKEYS:IFAS<>"S” AND AS 


<>"s” AND AS<>"N” AND AS<>2"nº T 
HEN 4040 

4050 IF A$="S” OR A$="8” THEN RB 
UN 

4060 END 

5000 AS="VOCÊE TEVE SORTE” 

5010 GOTO 4020 

6000 AS="UM BELO EMPATE” :GOTO40 


20 


== = "ESSE "se- 





4000 IF PS > CS THEN 5000 
4010 IF PS = CS THEN 6000 
4020 VTAB (17): PRINT "FOI FAC 
TE 1º 

4030 INPUT "QUER JOGAR NOVAMEN 
TE (S/N) ";AS 

4040 AS = JLEFTS (AS,1): IF AS 
< > "8" THEN END 

4050 RUN 

4060 END 

5000 VTAB (17): PRINT "VOCÊ TE 
VE SORTE DESTA VEZ !” 

5010 GOTO 4030 

6000 VTAB (17): PRINT "EMPATAM 
OS, PRECISO TREINAR MAIS !": GO 
TO 4030 


A rotina de fim de jogo começa na hi- 
nha 4000, que verifica se o jogador ven- 
ceu, comparando PS com CS. O progra- 
ma salta para a linha 5000 para impri- 
mir a mensagem de vitória. A linha 4010 
detecta a ocorrência de empate, e a men- 
sagem correspondente é impressa pela li- 
nha 6000. Se o computador tiver venci- 
do, o programa atinge a linha 4020 e exi- 
be uma mensagem para o jogador. As 
linhas restantes oferecem a opção para 
uma outra partida. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 










HnnnanNO PRÓXIMO NUMERO 


PROGRAMAÇÃO BASIC 
As seções do cone. Círculos, elipses, parábolas e hipérboles. 
Rotação de curvas. Aplicações práticas. 


CÓDIGO DE MÁQUINA 
Em busca do lanche perdido, o herói de Avalanche deve escalar uma montanha. 
Use blocos gráficos para construí-la. 


PROGRAMAÇÃO BASIC 
Você gostaria de criar sprites no MSX? Comece, então, por estudar a 
organização da memória de vídeo do seu micro. 
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